001_load.t

来自「用perl和gtk+写的调用mplayer播放电视的软件」· T 代码 · 共 12 行

# -*- perl -*-

# t/001_load.t - check module loading and create testing directory

use Test::More tests => 2;

BEGIN { use_ok( 'MPlayer' );
	}

my $object = MPlayer->new ();
isa_ok ($object, 'MPlayer');