|
Revision 4196, 0.7 kB
(checked in by takayama, 3 months ago)
|
|
* Set svn keywords
|
-
Property svn:mime-type set to
text/plain
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | # $Id: 05-errorhandler.t 1100 2007-12-12 01:48:53Z hachi $ |
|---|
| 3 | use strict; |
|---|
| 4 | use warnings; |
|---|
| 5 | |
|---|
| 6 | use lib 'lib'; |
|---|
| 7 | use lib 'extlib'; |
|---|
| 8 | use lib 't/lib'; |
|---|
| 9 | |
|---|
| 10 | use Test::More tests => 9; |
|---|
| 11 | |
|---|
| 12 | use MT::ErrorHandler; |
|---|
| 13 | |
|---|
| 14 | my $eh = MT::ErrorHandler->new; |
|---|
| 15 | isa_ok($eh, 'MT::ErrorHandler'); |
|---|
| 16 | my $val = $eh->error('foo bar'); |
|---|
| 17 | ok(!defined $val, 'val undef'); |
|---|
| 18 | is($eh->errstr, "foo bar\n", 'foo bar'); |
|---|
| 19 | my @val = $eh->error('foo'); |
|---|
| 20 | is(@val, 0, 'val size=0'); |
|---|
| 21 | is($eh->errstr, "foo\n", 'foo'); |
|---|
| 22 | |
|---|
| 23 | $val = MT::ErrorHandler->error('foo bar'); |
|---|
| 24 | ok(!defined $val, 'val undef'); |
|---|
| 25 | is(MT::ErrorHandler->errstr, "foo bar\n", 'foo bar'); |
|---|
| 26 | @val = MT::ErrorHandler->error('foo'); |
|---|
| 27 | is(@val, 0, 'val size=0'); |
|---|
| 28 | is(MT::ErrorHandler->errstr, "foo\n", 'foo'); |
|---|
