File: pristine_ok.t

package info (click to toggle)
libtest-moose-more-perl 0.050-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 512 kB
  • sloc: perl: 755; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 404 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use strict;
use warnings;

use Test::More;

use Test::Moose::More;

{ package Pristine;     use Moose;                          }
{ package NotPristine;  use Moose; has foo => (is => 'rw'); }
{ package AlsoPristine; use Moose; extends 'NotPristine'    }

subtest 'sanity' => sub {

    is_pristine_ok 'Pristine';
    is_not_pristine_ok 'NotPristine';
    is_pristine_ok 'AlsoPristine';
};

done_testing;