Changeset 489 for wiki-toolkit-plugin-ping/trunk/t/02_call.t

Timestamp:

01/31/09 14:16:16 (3 years ago)

Author:

dom

Message:

Support configurable user-agent (also update copyright year and fix hard-coding the test port number in four places)

Files:

• wiki-toolkit-plugin-ping/trunk/t/02_call.t (modified) (4 diffs)

wiki-toolkit-plugin-ping/trunk/t/02_call.t

@@ -14 +14 @@
     plan skip_all => 'SQLite not availalbe';
 } else {
-    plan tests => 4;
+    plan tests => 5;
 }
 
@@ -26 +26 @@
 my $wiki = Wiki::Toolkit->new( store=>$store );
 
+my $port = 112233;
 
 # Listen on a special port, so we can check a ping happened
 my $sock = new IO::Socket::INET (
-                    LocalPort => 112233,
+                    LocalPort => $port,
                     Proto => 'tcp',
                     Listen => 1,
 );
 unless($sock) {
-    die("Can't listen on port 112233 for test");
+    die("Can't listen on port $port for test");
 }
 
@@ -42 +43 @@
     node_to_url => "http://wiki.org/\$node",
     services => {
-        test => "http://localhost:112233/url=\$url"
-    }
+        test => "http://localhost:$port/url=\$url"
+    },
+    agent => "Wiki::Toolkit::Plugin::Ping test suite",
 );
 ok( $plugin, "Plugin was created OK with the local URL" );
@@ -74 +76 @@
 my $allreq = join "\n", @req;
 like( $req[0], qr/^GET \/url=http:\/\/wiki.org\/TestNode/, "Did right get" );
-like( $allreq, qr/^Host: localhost:112233/m, "Correct http/1.1 host" );
+like( $allreq, qr/^Host: localhost:$port/m, "Correct http/1.1 host" );
+like( $allreq, qr/^User-Agent: Wiki::Toolkit::Plugin::Ping test suite/m, "Correct user-agent" );
 
 # Send them an OK