File: true_false.t

package info (click to toggle)
libobject-result-perl 0.000003-1.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 216 kB
  • sloc: perl: 224; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 469 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
use 5.014;
use Test::More;
use Object::Result;

sub get_truth {
    result {
        value { 'truth' }
    };
}

sub get_falsity {
    result {
        <FAIL>
        value { 'falsity' }
    };
}

my $truth = get_truth();
ok $truth                   => 'default is true';
is $truth->value, 'truth'   => 'Method works';

my $falsity = get_falsity();
ok !$falsity                  => '<FAIL> is false';
is $falsity->value, 'falsity' => 'Method works';

done_testing();