1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';
BEGIN {
use_ok 'Test::Regexp';
}
my $obj1 = Test::Regexp -> new;
my $obj2 = Test::Regexp -> new -> init;
my $obj3 = Test::Regexp::Object -> new;
my $obj4 = Test::Regexp::Object -> new -> init;
isa_ok $obj1, 'Test::Regexp::Object';
isa_ok $obj2, 'Test::Regexp::Object';
isa_ok $obj3, 'Test::Regexp::Object';
isa_ok $obj4, 'Test::Regexp::Object';
ok $obj1 != $obj2, "Different objects";
ok $obj1 != $obj3, "Different objects";
ok $obj1 != $obj4, "Different objects";
ok $obj2 != $obj3, "Different objects";
ok $obj2 != $obj4, "Different objects";
ok $obj3 != $obj4, "Different objects";
__END__
|
