Changeset 532

Timestamp:

04/18/12 11:27:21 (14 months ago)

Author:

kake

Message:

Added some basic function tests for the JSON plugin (fixes #40).

Files:

• wiki-toolkit-plugin-json/trunk/t/002_basic_invocation.t (modified) (3 diffs)

wiki-toolkit-plugin-json/trunk/t/002_basic_invocation.t

@@ -1 +1 @@
 use strict;
+use JSON;
 use Test::More;
 use Wiki::Toolkit::Plugin::JSON;
@@ -7 +8 @@
     plan skip_all => "no backends configured";
 } else {
-    plan tests => ( 1 * scalar @Wiki::Toolkit::TestLib::wiki_info );
+    plan tests => ( 3 * scalar @Wiki::Toolkit::TestLib::wiki_info );
 }
  
@@ -40 +41 @@
     );
 
-    my $output;
-    eval {
+    my $output = eval {
            local $SIG{__WARN__} = sub { die $_[0]; };
-            $output = $json->recent_changes;
+            $json->recent_changes;
     };
     ok( !$@, "->recent_changes() doesn't warn." );
+
+    my $parsed = eval {
+           local $SIG{__WARN__} = sub { die $_[0]; };
+           decode_json( $output );
+    };
+    ok( !$@, "...and its output looks like JSON." );
+    is( scalar @$parsed, 3, "...and has the right number of nodes." );
 }