Changeset 413 for branches/Release04x02/twikiplugins/UnitTestContrib/test/unit/FormDefTests.pm

Timestamp:

11/03/08 13:48:54 (4 years ago)

Author:

CrawfordCurrie

Message:

Item67: a missing form definition would make a topic uneditable

File:

• branches/Release04x02/twikiplugins/UnitTestContrib/test/unit/FormDefTests.pm (modified) (1 diff)

branches/Release04x02/twikiplugins/UnitTestContrib/test/unit/FormDefTests.pm

@@ -179 +179 @@
 }
 
+sub test_makeFromMeta {
+    my $this = shift;
+    $this->{twiki}->{store}->saveTopic(
+        $this->{twiki}->{user}, $this->{test_web}, 'SplodgeOne', <<FORM);
+%META:FORM{name="NonExistantForm"}%
+%META:FIELD{name="Ecks" attributes="" title="X" value="Blah"}%
+FORM
+    my ($meta, $text) =
+      $this->{twiki}->{store}->readTopic(
+          undef, $this->{test_web}, 'SplodgeOne');
+    my $form = new TWiki::Form(
+        $this->{twiki}, $this->{test_web}, 'NonExistantForm', $meta);
+    my $f = $form->getField('Ecks');
+    $this->assert_str_equals('', $f->getDefaultValue());
+    $this->assert_str_equals('Ecks', $f->{name});
+    $this->assert_str_equals('X', $f->{title});
+    $this->assert_str_equals('', $f->{size});
+}
+
 1;