projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
BestPractices now advises against the use of lazy_build
[gitmo/Moose.git]
/
t
/
test_moose
/
test_moose_meta_ok.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::Builder::Tester;
7
use Test::More;
8
9
use Test::Moose;
10
11
{
12
package Foo;
13
use Moose;
14
}
15
16
{
17
package Bar;
18
}
19
20
test_out('ok 1 - ... meta_ok(Foo) passes');
21
22
meta_ok('Foo', '... meta_ok(Foo) passes');
23
24
test_out ('not ok 2 - ... meta_ok(Bar) fails');
25
test_fail (+2);
26
27
meta_ok('Bar', '... meta_ok(Bar) fails');
28
29
test_test ('meta_ok');
30
31
done_testing;