Item972: add unit test for select+values, and add the missing import

git-svn-id: http://svn.foswiki.org/trunk@2411 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Feb 8, 2009 · bd889ea · bd889ea
1 parent 517c74d
commit bd889ea
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/UnitTestContrib/test/unit/FormDefTests.pm b/UnitTestContrib/test/unit/FormDefTests.pm
@@ -194,4 +194,21 @@ FORM
     $this->assert_str_equals('', $f->{size});
 }
 
+sub test_Item972_selectPlusValues {
+    my $this = shift;
+
+    $this->{twiki}->{store}->saveTopic(
+        $this->{twiki}->{user}, $this->{test_web}, 'TestForm', <<FORM);
+| *Name* | *Type*   | *Size* | *Value* | *Tooltip* | *Attributes* |
+| Select | select+values | 5 | One, Two=2, Three=III, Four | Various values |
+FORM
+    my $def = new Foswiki::Form($this->{twiki}, $this->{test_web}, 'TestForm');
+
+    my $f = $def->getField('Select');
+    $this->assert_str_equals('select+values', $f->{type});
+    $this->assert_equals(4, scalar(@{$f->getOptions()}));
+    $this->assert_str_equals('One,2,III,Four', join(',',@{$f->getOptions()}));
+    $this->assert_str_equals('Various values', $f->{tooltip});
+}
+
 1;
diff --git a/core/lib/Foswiki/Form/Select.pm b/core/lib/Foswiki/Form/Select.pm
@@ -3,6 +3,7 @@ package Foswiki::Form::Select;
 use base 'Foswiki::Form::ListFieldDefinition';
 
 use strict;
+use Assert;
 
 sub new {
     my $class = shift;