Changeset 503

Timestamp:

09/05/09 13:53:12 (12 months ago)

Author:

dom

Message:

add more recent changes tests (references #41)

Location:

wiki-toolkit/trunk

Files:

• Changes (modified) (1 diff)
• t/011_recent_changes.t (modified) (10 diffs)

wiki-toolkit/trunk/Changes

@@ -1 +1 @@
 0.78
         Fix various POD errors and add POD testing (#45)
+        More recent changes tests (for #41)
 
 0.77    24 December 2008

wiki-toolkit/trunk/t/011_recent_changes.t

@@ -6 +6 @@
     plan skip_all => "no backends configured";
 } else {
-    plan tests => ( 25 * scalar @Wiki::Toolkit::TestLib::wiki_info );
+    plan tests => ( 28 * scalar @Wiki::Toolkit::TestLib::wiki_info );
 }
 
@@ -25 +25 @@
     my $node = "Node1";
     my %node_data = $wiki->retrieve_node( $node );
-    $wiki->write_node( $node, @node_data{ qw( content checksum ) },
+    $wiki->write_node( $node, "data", @node_data{checksum} ,
                        {
                          username  => "Kake",
@@ -35 +35 @@
     $node = "Everyone's Favourite Hobby";
     %node_data = $wiki->retrieve_node( $node );
-    $wiki->write_node( $node, @node_data{ qw( content checksum ) },
+    $wiki->write_node( $node, "hobby data", @node_data{checksum},
                        {
                          comment   => "Test",
+                         edit_type => "Normal edit",
                        }
                      );
@@ -43 +44 @@
     $node = "Another Node";
     %node_data = $wiki->retrieve_node( $node );
-    $wiki->write_node( $node, @node_data{ qw( content checksum ) },
+    $wiki->write_node( $node, "another node 1", @node_data{checksum},
                        {
                          username  => "nou",
                          comment   => "Test",
+                         edit_type => "Normal edit",
                        }
                      );
@@ -97 +99 @@
         metadata_is    => { username => "Kake" }
     );
+
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
     is( scalar @nodes, 1, "metadata_is does constrain the search" );
     is( $nodes[0]{name}, "Node1", "...correctly" );
@@ -113 +118 @@
         metadata_isnt  => { edit_type => "Minor tidying" }
     );
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
     is( scalar @nodes, 1,
        "metadata_isnt includes nodes where this metadata type isn't set" );
@@ -133 +140 @@
     $node = "Another Node";
     %node_data = $wiki->retrieve_node( $node );
-    $wiki->write_node( $node, @node_data{ qw( content checksum ) },
+    $wiki->write_node( $node, "another node 2", @node_data{checksum},
                        {
                          username  => "Kake",
@@ -142 +149 @@
 
     @nodes = $wiki->list_recent_changes( days => 1 );
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
     is( scalar @nodes, 3,
         "By default each node returned only once however many times changed" );
@@ -153 +162 @@
         metadata_was => { username => "nou" }
     );
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
     is( scalar @nodes, 1,
        "metadata_was returns nodes whose current version doesn't match" );
@@ -169 +180 @@
                           },
     );
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
     is( scalar @nodes, 2,
         "metadata_wasnt returns nodes whose current version matches" );
+
+    # lets add yet another normal edit to check proper display of multple normal edits
+    do_sleep();
+    $node = "Another Node";
+    %node_data = $wiki->retrieve_node( $node );
+    $wiki->write_node( $node, "another node 3", @node_data{checksum},
+                       {
+                         username  => "bob",
+                         comment  => "bob writes the node that nou and Kake aready wrote",
+                         edit_type => "Normal edit",
+                       }
+                     );
+
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
+    @nodes = $wiki->list_recent_changes( days => 1 );
+    is( scalar @nodes, 3,
+        "By default each node returned only once however many times changed" );
+    @nodes = $wiki->list_recent_changes( days => 1, include_all_changes => 1 );
+    is( scalar @nodes, 5,
+        "...returned more than once when 'include_all_changes' set" );
+    @nodes = $wiki->list_recent_changes(
+        days => 1,
+        metadata_was => {
+                            edit_type => "Normal edit",
+                          },
+    );
+    @nodenames = map { $_->{name} } @nodes;
+    print "# Found nodes: " . join(" ", @nodenames) . "\n";
+    
+    TODO: {
+        local $TODO = 'http://www.wiki-toolkit.org/ticket/41';
+        is( scalar @nodes, 2,
+            "metadata_was returns nodes whose current version matches" );
+    }
 }