/macosx-10.9.5/CPANInternal-140/Test-Deep/lib/Test/Deep/ |
H A D | Shallow.pm | 22 my $got = shift; 27 if (!defined $got and !defined $exp) 31 elsif (defined $got xor defined $exp) 35 elsif (ref $got and ref $exp) 37 $ok = refaddr($got) == refaddr($exp); 39 elsif (ref $got xor ref $exp) 45 $ok = $got eq $exp;
|
H A D | HashEach.pm | 20 my $got = shift; 24 @exp{keys %$got} = ($self->{val}) x (keys %$got); 26 return Test::Deep::descend($got, \%exp);
|
H A D | String.pm | 18 my $got = shift().""; 20 $self->data->{got} = $got; 22 return $got eq $self->{val};
|
H A D | Array.pm | 20 my $got = shift; 24 return 0 unless Test::Deep::descend($got, Test::Deep::arraylength(scalar @$exp)); 26 return 0 unless $self->test_class($got); 28 return Test::Deep::descend($got, Test::Deep::arrayelementsonly($exp));
|
H A D | ArrayLengthOnly.pm | 20 my $got = shift; 24 return @$got == $len; 48 my $got = shift; 50 return $self->renderVal(@$got + 0);
|
H A D | Blessed.pm | 22 my $got = shift; 25 my $blessed = blessed($got); 42 my $got = shift; 44 $self->SUPER::renderGot(blessed($got));
|
H A D | Ref.pm | 13 my $got = shift; 19 return Test::Deep::descend($got, Test::Deep::blessed(blessed($exp))); 30 my $got = shift; 33 return Test::Deep::descend($got, Test::Deep::reftype($reftype));
|
H A D | RefType.pm | 21 my $got = shift; 24 my $reftype = reftype($got); 41 my $got = shift; 43 $self->SUPER::renderGot(reftype($got));
|
H A D | ScalarRef.pm | 21 my $got = shift; 24 return 0 unless $self->test_class($got); 25 return 0 unless $self->test_reftype($got, Scalar::Util::reftype($exp)); 26 return Test::Deep::descend($got, Test::Deep::scalarrefonly($exp));
|
H A D | ArrayEach.pm | 20 my $got = shift; 22 my $exp = [ ($self->{val}) x @$got ]; 24 return Test::Deep::descend($got, $exp);
|
H A D | ArrayLength.pm | 20 my $got = shift; 24 return 0 unless $self->test_reftype($got, "ARRAY"); 26 return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp));
|
H A D | RegexpRef.pm | 22 my $got = shift; 27 return 0 unless $self->test_class($got, "Regexp"); 28 return 0 unless $self->test_reftype($got, "SCALAR"); 30 return 0 unless $self->test_reftype($got, "REGEXP"); 33 return Test::Deep::descend($got, Test::Deep::regexprefonly($exp));
|
H A D | Number.pm | 21 my $got = shift; 22 $self->data->{got_string} = $got; 25 $got += 0; 28 $self->data->{got} = $got; 31 return abs($got - $self->{val}) <= $tolerance; 35 return $got == $self->{val};
|
H A D | HashElements.pm | 21 my $got = shift; 27 my $master = $self->getMaster($got, $exp); 33 my $got_elem = exists $got->{$key} ? $got->{$key} : $Test::Deep::DNE; 48 my ($got, $exp) = @_; 50 return keys %$got > keys %$exp ? $got : $exp; 76 my ($got, $exp) = @_; 89 my ($got, $exp) = @_; 91 return $got; [all...] |
H A D | Any.pm | 25 my $got = shift; 29 return 1 if Test::Deep::eq_deeply_cache($got, $cmp); 42 my $got = $self->renderGot($last->{got}); 47 got : $got label
|
H A D | Class.pm | 22 my $got = shift; 26 Test::Deep::wrap($self->{val})->descend($got);
|
H A D | Isa.pm | 19 my $got = shift; 21 return UNIVERSAL::isa($got, $self->{val});
|
H A D | RegexpRefOnly.pm | 21 my $got = shift; 25 return $got eq $exp;
|
H A D | ScalarRefOnly.pm | 21 my $got = shift; 25 return Test::Deep::descend($$got, $$exp);
|
/macosx-10.9.5/CPANInternal-140/String-ShellQuote-1.00/ |
H A D | test.t | 31 my $got = &$testsub(@args); 32 ok $n, $got eq $want, qq[wanted "$want", got "$got"]; 58 ok 17, $@ =~ /^\QToo many arguments to shell_comment_quote (got 2 expected 1)/,
|
/macosx-10.9.5/cxxfilt-11/cxxfilt/binutils/testsuite/binutils-all/arm/ |
H A D | objdump.exp | 45 set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble --start-address=6 $objfile"] 49 if [regexp $want $got] then { 55 set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble --start-address=10 $objfile"] 59 if [regexp $want $got] then {
|
/macosx-10.9.5/cxxfilt-11/cxxfilt/binutils/testsuite/binutils-all/ |
H A D | dlltool.exp | 65 set got [binutils_run $NM "tmpdir/libalias.a"] 68 if [regexp $want $got] then { 74 set got [binutils_run $OBJDUMP "-s -j .idata\$6 tmpdir/libalias.a"] 77 if [regexp $want $got] then {
|
/macosx-10.9.5/ksh-20/ksh/src/cmd/ksh93/tests/ |
H A D | sigchld.sh | 62 (( foreground == FOREGROUND )) || err_exit "expected '$FOREGROUND foreground' -- got '$foreground' (DELAY=$DELAY)" 63 (( background == BACKGROUND )) || err_exit "expected '$BACKGROUND background' -- got '$background' (DELAY=$DELAY)" 71 got=$($SHELL -c ' 85 [[ $got == $exp ]] || err_exit "SIGCHLD trap queueing failed -- expected '$exp', got '$got'" 87 got=$($SHELL -c ' 109 [[ $got == $exp ]] || err_exit "SIGCHLD trap queueing failed -- expected $(printf %q "$exp"), got $(printf %q "$got")" [all...] |
/macosx-10.9.5/procmail-14/procmail/src/ |
H A D | goodies.c | 52 { static int i,skipbracelev,bracegot;int got,bracelev,qbracelev; local 58 for(got=NOTHING_YET;;) /* buf2 is used as scratch space */ 65 if(sarg<2&&got>NORMAL_TEXT) /* condition expansion code */ 67 ready: if(got!=SKIPPING_SPACE||sarg) /* not terminated yet or sarg==2 ? */ 75 if(got==SINGLE_QUOTED) 84 if(got>SKIPPING_SPACE) /* escaped comment at start of word? */ 87 if(got==DOUBLE_QUOTED) 92 if(got<=NORMAL_TEXT&&bracelev|| 93 got==DOUBLE_QUOTED&&bracelev>qbracelev) 96 if(got>NORMAL_TEX 357 { register int got= *gotp; local [all...] |
/macosx-10.9.5/BerkeleyDB-21/db/perl/BerkeleyDB/ |
H A D | BerkeleyDB.pm | 573 my (%got) = %$default ; 601 { $got{$key} = $value } 611 return \%got ; 616 my $got = shift ; 619 if (defined $got->{Encrypt}) { 621 if !ref $got->{Encrypt} || ref $got->{Encrypt} ne 'HASH' ; 623 my %config = %{ $got->{Encrypt} } ; 633 $got->{"Enc_Passwd"} = $p->{Password}; 634 $got [all...] |