Changeset 305

Timestamp:

05/25/06 14:46:53 (6 years ago)

Author:

nick

Message:

Further tests on list_node_all_versions

Files:

• wiki-toolkit/trunk/t/025_list_node_all_versions.t (modified) (2 diffs)

wiki-toolkit/trunk/t/025_list_node_all_versions.t

@@ -6 +6 @@
     plan skip_all => "no backends configured";
 } else {
-    plan tests => ( 56 * scalar @Wiki::Toolkit::TestLib::wiki_info );
+    plan tests => ( 59 * scalar @Wiki::Toolkit::TestLib::wiki_info );
 }
 
@@ -128 +128 @@
         is_deeply( $all_versions[2]->{'metadata'}, \%md_2, "right metadata" );
         is_deeply( $all_versions[3]->{'metadata'}, \%md_1, "right metadata" );
+
+
+        # Finally, check that we still only have 1 version of the carrots node
+        my @carrots_versions = $wiki->list_node_all_versions(
+                                                                name => "Carrots",
+                                                                with_content => 1,
+                                                                with_metadata => 1
+        );
+
+        is( scalar @carrots_versions, 1, "list_node_all_versions gives the right number back" );
+
+        is( $carrots_versions[0]->{'version'}, 1, "right ordering" );
+        is( $carrots_versions[0]->{'name'}, "Carrots", "right node" );
 }