|
0
|
1 package IMPL::Test::BadUnit;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::Test::Unit);
|
|
|
6 use IMPL::Class::Property;
|
|
|
7
|
|
|
8 BEGIN {
|
|
|
9 public property UnitName => prop_all;
|
|
|
10 public property Message => prop_all;
|
|
|
11 public property Error => prop_all;
|
|
|
12 }
|
|
|
13
|
|
|
14 our %CTOR = (
|
|
|
15 'IMPL::Test::Unit' => sub {
|
|
|
16 my ($unit,$message,$error) = @_;
|
|
|
17 return new IMPL::Test::Unit::TestInfo(
|
|
|
18 BadUnitTest => sub {
|
|
|
19 die new IMPL::Test::FailException($message,$unit,eval {$error->isa('IMPL::Exception')} ? $error->toString(1) : $error)
|
|
|
20 }
|
|
|
21 );
|
|
|
22 }
|
|
|
23 );
|
|
|
24
|
|
|
25 sub CTOR {
|
|
|
26 my ($this,$name,$message,$error) = @_;
|
|
|
27
|
|
|
28 $this->UnitName($name);
|
|
|
29 $this->Message($message);
|
|
|
30 $this->Error($error);
|
|
|
31 }
|
|
|
32
|
|
|
33 sub save {
|
|
|
34 my ($this,$ctx) = @_;
|
|
|
35
|
|
|
36 defined ($this->$_()) and $ctx->AddVar($_ => $this->$_()) foreach qw(UnitName Message);
|
|
|
37 }
|
|
|
38
|
|
|
39 sub restore {
|
|
|
40 my ($class,$data,$inst) = @_;
|
|
|
41
|
|
|
42 my %args = @$data;
|
|
|
43
|
|
|
44 $inst ||= $class->surrogate;
|
|
|
45 $inst->callCTOR(@args{qw(UnitName Message)});
|
|
|
46 }
|
|
|
47
|
|
|
48
|
|
|
49 1;
|
