Changeset 816 for trunk/UnitTestContrib/test/unit/ExceptionTests.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/ExceptionTests.pm (modified) (8 diffs)

trunk/UnitTestContrib/test/unit/ExceptionTests.pm

@@ -1 +1 @@
 package ExceptionTests;
-use base TWikiTestCase;
+use base FoswikiTestCase;
 
 use strict;
 
 use Error qw( :try );
-use TWiki::OopsException;
-use TWiki::UI::Oops;
+use Foswiki::OopsException;
+use Foswiki::UI::Oops;
 
 # Check an OopsException with one non-array parameter
@@ -12 +12 @@
     my $this = shift;
     try {
-        throw TWiki::OopsException(
+        throw Foswiki::OopsException(
             'templatename',
             web => 'webname',
@@ -19 +19 @@
             keep => 1,
             params => 'phlegm');
-    } catch TWiki::OopsException with {
+    } catch Foswiki::OopsException with {
         my $e = shift;
-        $this->assert($e->isa('TWiki::OopsException'));
+        $this->assert($e->isa('Foswiki::OopsException'));
         $this->assert_str_equals('webname', $e->{web});
         $this->assert_str_equals('topicname', $e->{topic});
@@ -37 +37 @@
     my $this = shift;
     try {
-        throw TWiki::OopsException(
+        throw Foswiki::OopsException(
             'templatename',
             web => 'webname',
             topic => 'topicname',
             params => [ 'phlegm', '<pus>' ]);
-    } catch TWiki::OopsException with {
+    } catch Foswiki::OopsException with {
         my $e = shift;
-        $this->assert($e->isa('TWiki::OopsException'));
+        $this->assert($e->isa('Foswiki::OopsException'));
         $this->assert_str_equals('webname', $e->{web});
         $this->assert_str_equals('topicname', $e->{topic});
@@ -56 +56 @@
 sub upchuck {
     my $session = shift;
-    my $e = new TWiki::OopsException(
+    my $e = new Foswiki::OopsException(
             'templatename',
             web => 'webname',
@@ -66 +66 @@
 sub test_redirectOopsException {
     my $this = shift;
-    my $t = new TWiki();
+    my $t = new Foswiki();
     my ($output, $result) = $this->capture(\&upchuck, $t);
     $t->finish();
@@ -75 +75 @@
 sub test_AccessControlException {
     my $this = shift;
-    my $ace = new TWiki::AccessControlException(
+    my $ace = new Foswiki::AccessControlException(
         'FRY',
         'burger',
@@ -96 +96 @@
         param4 => 'phlegm',
         param5 => "the cat\nsat on\nthe rat"});
-    my $session = new TWiki(undef, $query);
-    my ($output, $result) = $this->capture(\&TWiki::UI::Oops::oops, $session,
+    my $session = new Foswiki(undef, $query);
+    my ($output, $result) = $this->capture(\&Foswiki::UI::Oops::oops, $session,
                    "Flum", "DeDum", $query, 0);
     $this->assert_matches(qr/^phlegm$/m, $output);