Lines Matching defs:ok
10 sub ok ($;$) {
11 my($ok, $name) = @_;
14 printf "%sok %d%s\n", ($ok ? '' : 'not '), $test,
17 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
20 return $ok;
26 ok( 1, 'Exporter compiled' );
45 ::ok( Testing->can($meth), "subclass can $meth()" );
57 ::ok( Testing->require_version(1.05), 'require_version()' );
59 ::ok( $@, 'require_version() fail' );
60 ::ok( Testing->require_version(0), 'require_version(0)' );
82 my $ok = 1;
84 $ok = exists $exportok{$tag};
86 ::ok( $ok, 'export_ok_tags()' );
92 ::ok( defined &lifejacket, 'simple import' );
95 ::ok ( $@ eq "", 'check we can call the imported subroutine')
97 ::ok ( $got eq 'lifejacket', 'and that it gave the correct result')
103 ::ok( eval "defined &is",
106 ::ok ( $@ eq "", 'check we can call the imported autoloaded subroutine')
108 ::ok ( $got eq 'Is', 'and that it gave the correct result')
117 ::ok( (!grep { eval "!defined $_" } map({ /^\w/ ? "&$_" : $_ } @imports)),
125 ::ok( (!grep { eval "!defined $_" } map { /^\w/ ? "&$_" : $_ }
133 ::ok( !defined &lifejacket, 'deny import by !' );
139 ::ok( (!grep { eval "!defined $_" } map { /^\w/ ? "&$_" : $_ }
147 ::ok( (!grep { eval "defined $_" } map { /^\w/ ? "&$_" : $_ }
150 ::ok( !defined &lifejacket, 'further denial' );
157 ::ok(!$@, 'require_version(0) and $VERSION = 0');
164 ::ok($@ !~ /\(undef\)/, 'require_version(10) and $VERSION = 0');
178 ::ok( !$warnings, 'Unused variables can be exported without warning' ) ||
192 ::ok (foo eq "foo", "imported foo before EXPORT_OK changed");
198 ::ok (bar eq "bar", "imported bar after EXPORT_OK changed");
205 ::ok(\&import == \&Exporter::import, "imported the import routine");
215 ::ok($val eq "wobble", "exported importer worked");