File: 001_basic.t

package info (click to toggle)
libmodule-optional-perl 0.03-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 140 kB
  • sloc: perl: 102; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 319 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
20
21
 
# -*- perl -*-

# t/001_basic.t - Basic defaulting for non-OO module

use Test::More tests => 3;
use strict;

BEGIN { use_ok( 'Module::Optional', 'FooGlurch' ); }

#02
can_ok('FooGlurch', 'blink');

#03
is(FooGlurch::blink(),'moo', "Correct sub being called");

package FooGlurch::Dummy;

sub blink {
	return "moo";
}