Changeset 816 for trunk/UnitTestContrib/test/unit/CGIEngineTests.pm

Timestamp:

11/19/08 19:11:33 (4 years ago)

Author:

CrawfordCurrie

Message:

Item175: ported unit tests to new namespace. They all pass.

File:

• trunk/UnitTestContrib/test/unit/CGIEngineTests.pm (modified) (3 diffs)

trunk/UnitTestContrib/test/unit/CGIEngineTests.pm

@@ -9 +9 @@
 
 BEGIN {
-    $TWiki::cfg{Engine} = 'TWiki::Engine::CGI';
+    $Foswiki::cfg{Engine} = 'Foswiki::Engine::CGI';
 }
 
-use TWiki;
-use TWiki::Response;
-use TWiki::UI;
+use Foswiki;
+use Foswiki::Response;
+use Foswiki::UI;
 
 use File::Temp;
@@ -20 +20 @@
 use Data::Dumper;
 
-$TWiki::cfg{SwitchBoard}{test} = [ 'TWiki::UI::Test', 'test', { test => 1 } ];
+$Foswiki::cfg{SwitchBoard}{test} = [ 'Foswiki::UI::Test', 'test', { test => 1 } ];
 
 sub cgi_env {
@@ -42 +42 @@
 
     %ENV = cgi_env;
-    my $res = new TWiki::Response();
+    my $res = new Foswiki::Response();
     $res->header(-type => 'text/plain', charset => 'iso8859-1');
     $res->body("Teste!\n");
-    $ENV{QUERY_STRING} = 'desired_test_response='.TWiki::urlEncode(freeze($res));
+    $ENV{QUERY_STRING} = 'desired_test_response='.Foswiki::urlEncode(freeze($res));
     my $out = '';
     open my $stdout, '>&', \*STDOUT;
     close STDOUT;
     open STDOUT, '>', \$out;
-    $TWiki::engine->run();
+    $Foswiki::engine->run();
     open STDOUT, '>&', $stdout;
     $out =~ /(?:\r?\n){2}(.*)/s;