Changeset 816 for trunk/UnitTestContrib/lib/Unit/TestCase.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/lib/Unit/TestCase.pm (modified) (2 diffs)

trunk/UnitTestContrib/lib/Unit/TestCase.pm

@@ -283 +283 @@
     my @params = @_;
     my $result;
-    my ( $release ) = $TWiki::RELEASE =~ /-(\d+)\.\d+\.\d+/;
+    my ( $release ) = $Foswiki::RELEASE =~ /-(\d+)\.\d+\.\d+/;
 
     {
@@ -294 +294 @@
     if ( $release >= 5 ) {
         $response =
-          UNIVERSAL::isa( $params[0], 'TWiki' )
+          UNIVERSAL::isa( $params[0], 'Foswiki' )
           ? $params[0]->{response}
-          : $TWiki::Plugins::SESSION->{response};
+          : $Foswiki::Plugins::SESSION->{response};
 
         # Capture headers
-        TWiki::Engine->finalizeCookies($response);
+        Foswiki::Engine->finalizeCookies($response);
         foreach my $header ( keys %{ $response->headers } ) {
             $text .= $header . ': ' . $_ . "\x0D\x0A"