In article <[EMAIL PROTECTED]>, "Dave Rolsky"
<[EMAIL PROTECTED]> wrote:
> On Tue, 25 Sep 2001, Michael G Schwern wrote:
>> Ahhhh, ok. How about this:
>>
>> my $yarrow = Bar->new;
>> isa_ok($yarrow, "Bar", 'yarrow');
> isa_ok($foo, 'Alzabo::Foo', 'Return value from $bar->foreign_keys should be
> "Alzabo::Foo"');
Combining the two gives us a test and a very contrived test failure output:
isa_ok($foo, 'Alzabo::Foo', 'Return value from $bar->foreign_keys');
not ok 1 - $foo->isa('bar')
# Failed test (foo.plx at line 3)
# Return value from $bar->foreign_keys isn't a 'Alzabo::Foo'
The syntax is a little different, but it's *really* close.
-- c
