Home
last modified time | relevance | path

Searched refs:got (Results 1 – 25 of 949) sorted by relevance

12345678910>>...38

/openbsd-src/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/lib/Compress/Raw/
H A DZlib.pm210 my $got = $self->{Got} ;
211 my $firstTime = keys %{ $got } == 0 ;
223 return $self->setError("Expected even number of parameters, got 1")
233 return $self->setError("Expected even number of parameters, got $count")
256 $got->{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
259 $got->{$key}[OFF_PARSED] = 0 ;
272 if ($got->{$canonkey} && ($firstTime ||
273 ! $got->{$canonkey}[OFF_FIRST_ONLY] ))
275 my $type = $got->{$canonkey}[OFF_TYPE] ;
281 $got
[all...]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dchop.t35 $got = chomp();
36 is($got, 1, 'check return value when chomp string ending with two newlines; $/ is set to default of…
40 $got = chomp();
41 is($got, 1, 'check return value chomp string ending with one newline while $/ is set to a newline');
45 $got = chomp();
46 is($got, 0, 'check return value when chomp a string that does not end with current value of $/, 0 s…
51 $got = chomp();
52 is ($got, "2", 'check return value when chomp string with $/ consisting of more than one character,…
57 $got = chomp();
58 is($got, "0", 'check return value when call chomp with $/ consisting of more than one character, an…
[all …]
H A Dfor-many.t254 my $got = "@have";
255 if ($got =~ /^perl/) {
256 is($got, 'perl;rules beer;foamy', 'package hash key/value iteration');
259 is($got, 'beer;foamy perl;rules', 'package hash key/value iteration');
268 $got = "@have";
269 if ($got =~ /^perl/) {
270 is($got, 'perl;rules beer;foamy', 'package hash key/value reverse iteration');
273 is($got, 'beer;foamy perl;rules', 'package hash key/value reverse iteration');
283 $got = join ';', %hash;
285 if ($got
[all...]
H A Drt119311.t31 my $got;
32 $_ = $got ? "this is clearly a bug" : "ok";
34 $got = 1;
71 my $got;
72 $_ = $got ? "this is clearly a bug" : "ok";
74 $got = 1;
115 my $got;
116 $_ = $got ? "this is clearly a bug" : "ok";
118 $got = 1;
193 my $got;
[all …]
H A Dstudy.t113 my @got;
116 push @got, $_ foreach $a =~ /[^x]d(?{})[^x]d/g;
119 @got = ();
123 push @got, $_ foreach $a =~ /[^x]d(?{})[^x]d/g;
126 @got = ();
130 push @got, $_ foreach $a =~ /[^x]d(?{})[^x]d/g;
133 @got = ();
136 push @got, $_ foreach $a =~ /[^x]d(?{study $b})[^x]d/g;
139 @got = ();
144 push @got, $_ foreach $a =~ /[^x]d(?{study $b})[^x]d/g;
[all …]
/openbsd-src/gnu/usr.bin/perl/lib/
H A DBenchmark.t234 my $got = timethis($iterations, sub {++$foo});
236 isa_ok($got, 'Benchmark', "timethis CODEREF");
239 $got = $out->read();
240 like ($got, qr/^timethis $iterations/, 'default title');
241 like ($got, $Default_Pattern, 'default format is all or noc');
245 $got = timethis($iterations, '++$bar');
247 isa_ok($got, 'Benchmark', "timethis eval");
250 $got = $out->read();
251 like ($got, qr/^timethis $iterations/, 'default title');
252 like ($got, $Default_Pattern, 'default format is all or noc');
[all …]
/openbsd-src/regress/lib/libcrypto/x509/
H A Dx509_extensions_test.c64 int op, got; in test_x509v3_add1_i2d_empty_stack() local
77 if ((got = X509V3_add1_i2d(extensions, nid, NULL, 0, op)) != 0) { in test_x509v3_add1_i2d_empty_stack()
79 "want %d, got %d.\n", __func__, 0, got); in test_x509v3_add1_i2d_empty_stack()
98 if ((got = X509V3_add1_i2d(extensions, nid, NULL, 0, op)) != 0) { in test_x509v3_add1_i2d_empty_stack()
100 "want %d, got %d.\n", __func__, 0, got); in test_x509v3_add1_i2d_empty_stack()
111 if ((got = X509V3_add1_i2d(extensions, nid, NULL, 0, op)) != 0) { in test_x509v3_add1_i2d_empty_stack()
113 "want %d, got %d.\n", __func__, 0, got); in test_x509v3_add1_i2d_empty_stack()
143 int crit, got, nid, op; in test_x509v3_add1_i2d_single_nid() local
158 if ((got = X509V3_add1_i2d(extensions, nid, bc, 1, op)) != 1) { in test_x509v3_add1_i2d_single_nid()
161 __func__, 1, got); in test_x509v3_add1_i2d_single_nid()
[all …]
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/t/
H A Dtestutil.pl264 my ($got, $expected, $name, @mess) = @_;
267 if( !defined $got || !defined $expected ) {
269 $pass = !defined $got && !defined $expected;
272 $pass = $got eq $expected;
276 unshift(@mess, "# got "._qq($got)."\n",
283 my ($got, $isnt, $name, @mess) = @_;
286 if( !defined $got || !defined $isnt ) {
288 $pass = defined $got || defined $isnt;
291 $pass = $got ne $isnt;
295 unshift(@mess, "# it should not be "._qq($got)."\n",
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/
H A DGzip.pm87 my $got = shift ;
90 $got->setValue('crc32' => 1);
93 if $got->getValue('merge') ;
95 my $strict = $got->getValue('strict') ;
99 if (! $got->parsed('time') ) {
101 $got->setValue(time => time) ;
106 if ($got->parsed('name') && defined $got->getValue('name')) {
107 my $name = $got->getValue('name');
118 if ($got
[all...]
H A DZip.pm134 my $got = shift ;
140 $got->getValue('level'),
141 $got->getValue('strategy')
147 $got->getValue('crc32'),
148 $got->getValue('adler32'),
149 $got->getValue('level'),
150 $got->getValue('strategy')
155 $got->getValue('blocksize100k'),
156 $got->getValue('workfactor'),
157 $got
[all...]
/openbsd-src/gnu/usr.bin/perl/t/comp/
H A Duproto.t7 my ($got, $expected, $name) = @_;
12 if (defined $got) {
13 print "# Got '$got'\n";
22 my ($got, $pattern, $name) = @_;
24 if (defined $got && $got =~ $pattern) {
30 failed($got, $pattern, $name);
34 my ($got, $expect, $name) = @_;
37 if (defined $got && $got eq $expect) {
41 failed($got, "'$expect'", $name);
43 if (!defined $got) {
[all …]
H A Dmultiline.t7 my ($got, $expected, $name) = @_;
12 if (defined $got) {
13 print "# Got '$got'\n";
22 my ($got, $pattern, $name) = @_;
24 if (defined $got && $got =~ $pattern) {
30 failed($got, $pattern, $name);
34 my ($got, $expect, $name) = @_;
36 if (defined $got && $got eq $expect) {
40 failed($got, "'$expect'", $name);
H A Dfold.t19 my ($got, $expected, $name) = @_;
24 if (defined $got) {
25 print "# Got '$got'\n";
34 my ($got, $pattern, $name) = @_;
36 if (defined $got && $got =~ $pattern) {
42 failed($got, $pattern, $name);
46 my ($got, $expect, $name) = @_;
48 if (defined $got && $got eq $expect) {
52 failed($got, "'$expect'", $name);
56 my ($got, $name) = @_;
[all …]
H A Dopsubs.t13 my ($got, $expected, $name) = @_;
23 if (defined $got) {
24 print "# Got '$got'\n";
33 my ($got, $pattern, $name) = @_;
35 if (defined $got && $got =~ $pattern) {
46 failed($got, $pattern, $name);
50 my ($got, $expect, $name) = @_;
52 if (defined $got && $got eq $expect) {
61 failed($got, "'$expect'", $name);
65 my ($got, $expect, $name) = @_;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/Builder/
H A DTester.pm531 # return true iff the expected data matches the got data
540 my $got = $self->{got};
543 return 0 unless $got =~ s/^$check//;
546 return length $got == 0;
556 my $got = $self->got;
574 $char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 );
578 my $gotend = $red . substr( $got, $char ) . $reset;
589 $got
636 sub got { global() subroutine
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/CPAN-Meta-Requirements/t/
H A Daccepts.t11 ok( $req->accepts_module(Foo => 1), "need 1, got 1");
12 ok(! $req->accepts_module(Foo => 0), "need 0, got 1");
18 ok( $req->accepts_module(Foo => 1), "need 0, got 1");
19 ok( $req->accepts_module(Foo => undef), "need 0, got undef");
20 ok( $req->accepts_module(Foo => "v0"), "need 0, got 'v0'");
21 ok( $req->accepts_module(Foo => v1.2.3), "need 0, got v1.2.3");
22 ok( $req->accepts_module(Foo => "v1.2.3"), "need 0, got 'v1.2.3'");
28 ok( $req->accepts_module(Foo => 1), "need <=1, got 1");
29 ok(! $req->accepts_module(Foo => 2), "need <=1, got 2");
35 ok( $req->accepts_module(Foo => 0), "need !1, got
[all...]
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dutf16_to_utf8.t35 my $got = eval {utf16_to_utf8($_)};
38 is($got, undef, 'hence eval returns undef');
48 my $got = eval {utf16_to_utf8($malformed)};
51 is($got, undef, 'hence eval returns undef');
54 $got = eval {utf16_to_utf8_reversed($malformed)};
57 is($got, undef, 'hence eval returns undef');
61 my $got = eval {utf16_to_utf8_reversed($in, 1)};
64 is($got, undef, 'hence eval returns undef');
68 $got = eval {utf16_to_utf8($in, 2)};
70 (ok(!defined $got, 'hence eval returns undef')) or
[all …]
/openbsd-src/regress/lib/libcrypto/asn1/
H A Dasn1oct.c84 char *got = NULL; in test_i2s_ASN1_OCTET_STRING() local
93 if ((got = i2s_ASN1_OCTET_STRING(NULL, aos)) == NULL) { in test_i2s_ASN1_OCTET_STRING()
98 if (!should_fail && strcmp(test->want, got) != 0) { in test_i2s_ASN1_OCTET_STRING()
100 __func__, test->desc, test->want, got); in test_i2s_ASN1_OCTET_STRING()
105 free(got); in test_i2s_ASN1_OCTET_STRING()
114 char *got; in test_new_ASN1_OCTET_STRING() local
119 if ((got = i2s_ASN1_OCTET_STRING(NULL, aos)) == NULL) in test_new_ASN1_OCTET_STRING()
122 if (strcmp("", got) != 0) { in test_new_ASN1_OCTET_STRING()
124 __func__, got); in test_new_ASN1_OCTET_STRING()
129 free(got); in test_new_ASN1_OCTET_STRING()
[all …]
/openbsd-src/gnu/usr.bin/perl/dist/base/t/
H A Dincdot.t8 my ( $got, $expected ) = @_;
9 push @$got, ( '(missing)' ) x ( @$expected - @$got ) if @$got < @$expected;
10 push @$expected, ( '(should not exist)' ) x ( @$got - @$expected ) if @$got > @$expected;
12 map +( "got [$_] " . $got->[$_], 'expected'.(' ' x length).$expected->[$_] ),
13 grep $got->[$_] ne $expected->[$_],
14 0 .. $#$got
/openbsd-src/gnu/usr.bin/perl/t/re/
H A Dreg_posixcc.t87 my %got;
100 $got{"[$yes]"}{$type} = $str=~/[$yes]/ ? 1 : 0;
101 $got{"[$no]"}{$type} = $str=~/[$no]/ ? 1 : 0;
102 $got{"[^$yes]"}{$type} = $str=~/[^$yes]/ ? 1 : 0;
103 $got{"[^$no]"}{$type} = $str=~/[^$no]/ ? 1 : 0;
120 if ($got{$which}{'utf8'} != $got{$which}{'not-utf8'}){
121 is($got{$which}{'utf8'},$got{$which}{'not-utf8'},
128 if ($got{"[$which]"}{$strtype} == $got{"[^$which]"}{$strtype}) {
129 isnt($got{"[$which]"}{$strtype},$got{"[^$which]"}{$strtype},
H A Dopt.t72 my($got, $expect) = ($o->{minlen}, $minlen);
75 $skip || ok($got >= $expect, "$comment minlen $got >= $expect");
78 $skip || is($got, $todo, "$comment minlen $got = $todo");
81 $skip || is($got, $expect, "$comment minlen $got = $expect");
84 ($got, $expect) = ($o->{minlenret}, $opt{minlenret} // $minlen);
87 $skip || ok($got >= $expect, "$comment minlenret $got >= $expect");
90 $skip || is($got, $todo, "$comment minlenret $got = $todo");
93 $skip || is($got, $expect, "$comment minlenret $got = $expect");
201 my $got = $o->{$_};
205 $skip || is($got, $expect ? 1 : 0, "$comment $_");
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/compress/
H A Doneshot.pl239 is $out, $data, " got expected output" ;
316 my $got = anyUncompress(\$output, $already);
317 $got = undef if ! defined $buffer && $got eq '' ;
319 is $got, $buffer, " Uncompressed matches original";
330 my $got = anyUncompress($output[1]);
331 $got = undef if ! defined $buffer && $got eq '' ;
332 is $got, $buffer, " Uncompressed matches original";
345 my $got
[all...]
/openbsd-src/regress/lib/libcrypto/bn/
H A Dbn_mod_exp.c89 print_zero_test_failure(const BIGNUM *got, const BIGNUM *a, const BIGNUM *m, in print_zero_test_failure() argument
96 bn_print("got", got); in print_zero_test_failure()
103 BIGNUM *a, *m, *p, *got; in bn_mod_exp_zero_test() local
115 if ((got = BN_CTX_get(ctx)) == NULL) in bn_mod_exp_zero_test()
131 mod_exp_ret = test->mod_exp_fn(got, a, p, m, ctx); in bn_mod_exp_zero_test()
133 mod_exp_ret = test->mod_exp_mont_fn(got, a, p, m, ctx, NULL); in bn_mod_exp_zero_test()
142 if (!BN_is_zero(got)) { in bn_mod_exp_zero_test()
143 print_zero_test_failure(got, a, m, test->name); in bn_mod_exp_zero_test()
159 BIGNUM *m, *p, *got; in bn_mod_exp_zero_word_test() local
168 if ((got = BN_CTX_get(ctx)) == NULL) in bn_mod_exp_zero_word_test()
[all …]
/openbsd-src/gnu/usr.bin/perl/ext/B/t/
H A DOptreeCheck.pm519 $tc->{got} = $rendering;
559 my @got = sort keys %goterrs;
562 is(@missed + @got, 0, "Only got expected errors for $tc->{name}")
565 is(scalar @got, 0, "Got no errors for $tc->{name}")
567 _diag(join "\n", "got unexpected:", @got) if @got;
703 my $got = $tc->{got};
711 my $ok = $bad ? unlike ($got, $want, $cmnt) : like ($got, $want, $cmnt);
726 my $got = $tc->{got};
727 my @got = split(/\n/, $got);
736 my $line = shift @got;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/
H A D01misc.t39 like $@, mkErr(': Expected even number of parameters, got 1'),
43 like $@, mkErr(': Expected even number of parameters, got 1'),
47 like $@, mkErr(': Expected even number of parameters, got 1'),
51 like $@, mkErr("Parameter 'fred' must be an int, got 'joe'"),
52 "wanted unsigned, got undef";
55 like $@, mkErr("Parameter 'fred' must be an unsigned int, got 'undef'"),
56 "wanted unsigned, got undef";
59 like $@, mkErr("Parameter 'fred' must be a signed int, got 'undef'"),
60 "wanted signed, got undef";
63 like $@, mkErr("Parameter 'fred' must be a signed int, got 'ab
[all...]

12345678910>>...38