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;