Changeset 299 for wiki-toolkit/trunk/t/025_list_node_all_versions.t

Timestamp:

05/18/06 18:19:44 (6 years ago)

Author:

nick

Message:

Improve the node versions listing code and tests

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 => ( 9 * scalar @Wiki::Toolkit::TestLib::wiki_info );
+    plan tests => ( 22 * scalar @Wiki::Toolkit::TestLib::wiki_info );
 }
 
@@ -45 +45 @@
 
         # Fetch with content too
+        @all_versions = $wiki->list_node_all_versions(
+                                                                name => "Cheese",
+                                                                with_content => 1
+        );
+
+        is( scalar @all_versions, 4, "list_node_all_versions gives the right number back" );
+
+        # Check them
+        is( $all_versions[0]->{'version'}, 4, "right ordering" );
+        is( $all_versions[1]->{'version'}, 3, "right ordering" );
+        is( $all_versions[2]->{'version'}, 2, "right ordering" );
+        is( $all_versions[3]->{'version'}, 1, "right ordering" );
+        is( $all_versions[0]->{'name'}, "Cheese", "right node" );
+        is( $all_versions[1]->{'name'}, "Cheese", "right node" );
+        is( $all_versions[2]->{'name'}, "Cheese", "right node" );
+        is( $all_versions[3]->{'name'}, "Cheese", "right node" );
+        is( $all_versions[0]->{'content'}, "Content v4", "right node" );
+        is( $all_versions[1]->{'content'}, "Content v3", "right node" );
+        is( $all_versions[2]->{'content'}, "Content v2", "right node" );
+        is( $all_versions[3]->{'content'}, "content", "right node" );
 
         # With metadata