Lines Matching refs:correct

13 # $actual is object. $correct is HASH of atttr=>value pairs wih Test::Deep decorations
15   my($actual,$correct,$label,$quiet)=@_;
18   $ok&&=cmp_can($actual,$correct,$label,$file,$line);
19   $ok&&=cmp_attrs($actual,$correct,$label,$file,$line);
24 # $actual, $correct are HASHes of atttr=>value pairs
26   my($actual,$correct,$label)=@_;
29   $ok&&=cmp_hashes($actual,$correct,$label,$file,$line);
44 sub correct (\@\%%) {
49   my $correct={(map {$_=>undef} @$attrs),%$defaults};
53       push (@{$correct->{$attr}},$value);
55       $correct->{$attr}=$value;
58   while(my($attr,$value)=each %$correct) {
63       my $syn_value=$correct->{"syn$suffix"};
65 	$correct->{$attr}=$correct->{"syn$suffix"}=any($value,$syn_value);
68 	$correct->{$attr}=$correct->{"syn$suffix"}=$value;
70   $correct;
77 cmp_object($object,correct(@attrs,%defaults),'defaults');
82 my $correct=correct(@attrs,%defaults);
85   eq_deeply($before,$correct->{$attr})? push(@ok,$attr): push(@bad,$attr);
90 my $correct;
99   $correct->{$attr}=$value;
100   eq_deeply($after,$correct->{$attr})? push(@ok,$attr): push(@bad,$attr);
105 my $correct=correct(@attrs,%defaults,map {$_=>"$_ set value"} @attrs);
108   eq_deeply($after,$correct->{$attr})? push(@ok,$attr): push(@bad,$attr);
114 my $correct=correct(@class_attrs,%defaults,map {$_=>"$_ set value"} @class_attrs);
117   eq_deeply($after,$correct->{$attr})? push(@ok,$attr): push(@bad,$attr);
129   my $correct=correct(@attrs,%defaults,
132   cmp_object($object,$correct,"set attribute $attr via new",'quiet')? 
140 my $correct=correct(@attrs,%defaults,
143 cmp_object($object,$correct,"set attributes via new all at once");
152   my $correct=correct(@attrs,%defaults,
155   cmp_object($object,$correct,"set attribute $attr via set",'quiet')? 
164 my $correct=correct(@attrs,%defaults, (map {$_=>"$_ set value"} @attrs));
165 cmp_object($object,$correct,"set attributes via set all at once");
176   my $correct=correct(@attrs,%defaults,
179   cmp_object($object,$correct,"set attribute $attr via set_attributes",'quiet')? 
188 my $correct=correct(@attrs,%defaults, (map {$_=>"$_ set value"} @attrs));
191 cmp_object($object,$correct,"set attributes via set_attributes all at once");
196 cmp_object($object,$correct,"set attributes via set_attributes with superfluous attributes");
204 my $correct=correct(@attrs,%defaults,map {$_=>"$_ set value"} @attrs);
207   eq_deeply($actual,$correct->{$attr})? push(@ok,$attr): push(@bad,$attr);
218 cmp_values($actual,$correct,'get new values via get all at once');