How do you test that a variable has been tied to a class?

I looked through Test::More; the term 'tie' is conspicuous by its absence. I also searched the archives of this list and couldn't locate anything.

I'm looking for something along the lines of Test::More::isa_ok that we could use like this where the 'tie' call does not (at least in normal practice) explicitly return an object:

    use Tie::File;
    tie @data, 'Tie::File', $file or die;
    is_tied(@data, $file, "[EMAIL PROTECTED] is tied to \$file");

Jim Keenan



Reply via email to