first commit
This commit is contained in:
@@ -0,0 +1,18 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use v5.14;
|
||||
use warnings
|
||||
FATAL => qw(all),
|
||||
NONFATAL => qw(deprecated exec internal malloc newline once portable redefine recursion uninitialized);
|
||||
|
||||
use Clone qw(clone);
|
||||
use Test::Builder::Tester tests => 1;
|
||||
|
||||
use Test::Expander;
|
||||
|
||||
my $title = 'execution';
|
||||
test_out("ok 1 - $title");
|
||||
my $got = bless({A => 0, B => [(0 .. 1)]}, 'some class');
|
||||
my $expected = clone($got);
|
||||
is_deeply($got, $expected, $title);
|
||||
test_test($title);
|
||||
Reference in New Issue
Block a user