File: 01_object.t

package info (click to toggle)
libobject-container-perl 0.16-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 220 kB
  • sloc: perl: 221; makefile: 5
file content (19 lines) | stat: -r--r--r-- 461 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use Test::Base;

plan tests => 4;

use Object::Container;

my $container = Object::Container->new;
ok($container->register('FileHandle'), 'register class ok');
isa_ok($container->get('FileHandle'), 'FileHandle');

{
    my $obj;
    eval {
        $obj = $container->get('unknown_object');
    };

    ok !$obj, 'return nothing when getting unknown object';
    like $@, qr/"unknown_object" is not registered in Object::Container/, 'unknown object error ok';
}