From 0e1c5b35c343c4e54e6d366e6440715b8c9d25af Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 27 Apr 2008 03:09:31 +0000
Subject: [PATCH] update SelectBox test for new Form api

---
 t/Form/SelectBox.t | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/t/Form/SelectBox.t b/t/Form/SelectBox.t
index d5fe5d859..b33ae2f0d 100644
--- a/t/Form/SelectBox.t
+++ b/t/Form/SelectBox.t
@@ -118,9 +118,7 @@ is($cntl->getValue(1,2,3), 1, 'list returns first item');
 is($session->form->selectBox(undef,'text'), 'text', 'text');
 is($session->form->selectBox(undef,42), 42, 'int');
 is($session->form->selectBox(undef,0), 0, 'zero');
-is($session->form->selectBox(undef,undef), '', 'undef returns ""');
+is($session->form->selectBox(undef,undef), 0, 'undef returns 0');
 is($session->form->selectBox(undef,''), '', '""');
 is($session->form->selectBox(undef,1,2,3), 1, 'list returns first item');
 
-__END__
-