Home
last modified time | relevance | path

Searched refs:is (Results 1 – 25 of 2512) sorted by relevance

12345678910>>...101

/mirbsd/src/gnu/usr.bin/perl/lib/Unicode/
DUCD.t29 is($charinfo->{code}, '0041', 'LATIN CAPITAL LETTER A');
30 is($charinfo->{name}, 'LATIN CAPITAL LETTER A');
31 is($charinfo->{category}, 'Lu');
32 is($charinfo->{combining}, '0');
33 is($charinfo->{bidi}, 'L');
34 is($charinfo->{decomposition}, '');
35 is($charinfo->{decimal}, '');
36 is($charinfo->{digit}, '');
37 is($charinfo->{numeric}, '');
38 is($charinfo->{mirrored}, 'N');
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dsubstr.t30 is(substr($a,0,3), 'abc'); # P=Q R S
31 is(substr($a,3,3), 'def'); # P Q R S
32 is(substr($a,6,999), 'xyz'); # P Q S R
34 is ($w--, 1);
37 is(substr($a,0,-6), 'abc'); # P=Q R S
38 is(substr($a,-3,1), 'x'); # P Q R S
42 is(substr($a,1,3), 'abc' ); # P=Q R S
43 is(substr($a,4,3), 'def' ); # P Q R S
44 is(substr($a,7,999), 'xyz');# P Q S R
46 is($w--, 1);
[all …]
Dlc.t14 is("\Q$a\E." , "HELLO\\.\\*\\ world.", '\Q\E HELLO.* world');
15 is("\u$a" , "HELLO\.\* world", '\u');
16 is("\l$a" , "hELLO\.\* world", '\l');
17 is("\U$a" , "HELLO\.\* WORLD", '\U');
18 is("\L$a" , "hello\.\* world", '\L');
20 is(quotemeta($a) , "HELLO\\.\\*\\ world", 'quotemeta');
21 is(ucfirst($a) , "HELLO\.\* world", 'ucfirst');
22 is(lcfirst($a) , "hELLO\.\* world", 'lcfirst');
23 is(uc($a) , "HELLO\.\* WORLD", 'uc');
24 is(lc($a) , "hello\.\* world", 'lc');
[all …]
Darray.t17 is(join('',@ary), '12345');
20 is($tmp, 5);
21 is($#ary, 3);
22 is(join('',@ary), '1234');
26 is(join('',@ary), '12345');
29 is($tmp, 5);
32 is(join('',@ary), '1234');
34 is($ary[5], undef);
43 is($r, "-1");
46 is($r, "0,0");
[all …]
Dindex.t15 is($first, "Now is ");
18 is($last, "their country.");
21 is($last, "No");
24 is($last, "No");
27 is($last, ".");
30 is($last, ".");
32 is(index("ababa","a",-1), 0);
33 is(index("ababa","a",0), 0);
34 is(index("ababa","a",1), 2);
35 is(index("ababa","a",2), 2);
[all …]
Dver.t17 is( $@, '', "use v5.5.640; $@");
23 is('ok ',v111.107.32,'ASCII printing characters');
27 is('ok',$h{v111.107},'ASCII hash keys');
30 is('ok ',v150.146.64,'EBCDIC printing characters');
34 is('ok',$h{v150.146},'EBCDIC hash keys');
40 is('ok',$x,'poetry optimization');
49 is($x, 'MNO','poetry optimization with dots');
51 is(v1.20.300.4000, "\x{1}\x{14}\x{12c}\x{fa0}",'compare embedded \x{} string');
56 is( $@, '', "use 5.5.640; $@");
67 is('ok',$h{ok },'hash keys w/o v');
[all …]
Drepeat.t13 is('-' x 5, '-----', 'compile time x');
14 is('-' x 3.1, '---', 'compile time 3.1');
15 is('-' x 3.9, '---', 'compile time 3.9');
16 is('-' x 1, '-', ' x 1');
17 is('-' x 0, '', ' x 0');
18 is('-' x -1, '', ' x -1');
19 is('-' x undef, '', ' x undef');
20 is('-' x "foo", '', ' x "foo"');
21 is('-' x "3rd", '---', ' x "3rd"');
23 is('ab' x 3, 'ababab', ' more than one char');
[all …]
Dmethod.t26 is(Pack->method("a","b","c"), "method,a,b,c");
27 is(Pack->$mname("a","b","c"), "method,a,b,c");
28 is(method Pack ("a","b","c"), "method,a,b,c");
29 is((method Pack "a","b","c"), "method,a,b,c");
31 is(Pack->method(), "method");
32 is(Pack->$mname(), "method");
33 is(method Pack (), "method");
34 is(Pack->method, "method");
35 is(Pack->$mname, "method");
36 is(method Pack, "method");
[all …]
Dlocalref.t9 { local $aa; $aa = 2; is($aa,2); }
10 is($aa,1);
11 { local ${aa}; $aa = 3; is($aa,3); }
12 is($aa,1);
13 { local ${"aa"}; $aa = 4; is($aa,4); }
14 is($aa,1);
16 { local ${$x}; $aa = 5; is($aa,5); undef $x; is($aa,5); }
17 is($aa,1);
19 { local ${$x x2};$aa = 6; is($aa,6); undef $x; is($aa,6); }
20 is($aa,1);
[all …]
Dchr.t15 is(chr(ord("A")), "A");
17 is(chr( 0), "\x00");
18 is(chr(127), "\x7F");
19 is(chr(128), "\x80");
20 is(chr(255), "\xFF");
29 is(hexes( 0x100), "c4 80");
30 is(hexes( 0x7FF), "df bf");
31 is(hexes( 0x800), "e0 a0 80");
32 is(hexes( 0xFFF), "e0 bf bf");
33 is(hexes( 0x1000), "e1 80 80");
[all …]
Dtr.t17 is($_, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 'uc');
21 is($_, "abcdefghijklmnopqrstuvwxyz", 'lc');
24 is($_, "aBCDEFGHIJKLMNOPQRSTUVWXYz", 'partial uc');
27 # In EBCDIC 'I' is \xc9 and 'J' is \0xd1, 'i' is \x89 and 'j' is \x91.
36 is($_, "i\xcaj", 'EBCDIC discontinuity');
45 is($x + $y + $f + $g, 71, 'tr cancels IOK and NOK');
53 is($_, 'Fred', 'harmless if explicitly not updating');
61 is($_, 'Fred', 'harmless if implicitly not updating');
62 is($@, '', ' no error');
67 is($x, 256.65.258, 'handles UTF8');
[all …]
Dquotemeta.t18 is(length($_), 158, "quotemeta string");
20 is(tr/\\//cd, 104, "tr count non-backslashed");
27 is(length($_), 129, "quotemeta string");
29 is(tr/\\//cd, 95, "tr count non-backslashed");
32 is(length(quotemeta ""), 0, "quotemeta empty string");
34 is("aA\UbB\LcC\EdD", "aABBccdD", 'aA\UbB\LcC\EdD');
35 is("aA\LbB\UcC\EdD", "aAbbCCdD", 'aA\LbB\UcC\EdD');
36 is("\L\upERL", "Perl", '\L\upERL');
37 is("\u\LpERL", "Perl", '\u\LpERL');
38 is("\U\lPerl", "pERL", '\U\lPerl');
[all …]
Dpack.t102 is($#ary, $#ary2);
109 is($out1, $out2);
117 is( ($x = unpack("%32B*", "\001\002\004\010\020\040\100\200\377")), 16 );
119 is( ($x = unpack("%32b69", "\001\002\004\010\020\040\100\200\017")), 12 );
121 is( ($x = unpack("%32B69", "\001\002\004\010\020\040\100\200\017")), 9 );
129 is( ($x = unpack("%32B*", "Now is the time for all good blurfl")), $sum );
138 is( $sum, $longway =~ tr/1/1/ );
143 is( ($x = unpack("I",pack("I", 0xFFFFFFFF))), 0xFFFFFFFF );
154 is($x, $y);
160 is($a, $b);
[all …]
Dutfhash.t25 is($hash8{"\x{00ff}"},0xFF);
26 is($hash8{"\x{007f}"},0x7F);
27 is($hash8{"\xff"},0xFF);
28 is($hash8{"\x7f"},0x7F);
29 is($hashu{"\x{00ff}"},0xFF);
30 is($hashu{"\x{007f}"},0x7F);
31 is($hashu{"\xff"},0xFF);
32 is($hashu{"\x7f"},0x7F);
39 is($hash8{$a},ord($a));
40 is($hashu{$a},ord($a));
[all …]
Dqq.t13 sub is {
38 is ("\x53", chr 83);
39 is ("\x4EE", chr (78) . 'E');
40 is ("\x4i", chr (4) . 'i'); # This will warn
41 is ("\xh", chr (0) . 'h'); # This will warn
42 is ("\xx", chr (0) . 'x'); # This will warn
43 is ("\xx9", chr (0) . 'x9'); # This will warn. \x9 is tab in EBCDIC too?
44 is ("\x9_E", chr (9) . '_E'); # This will warn
46 is ("\x{4E}", chr 78);
47 is ("\x{6_9}", chr 105);
[all …]
Dref.t19 is($foo, 'one');
21 is ($foo, 'two');
27 is ($foo, 'three');
29 is ($foo, 'four');
34 is ($foo, undef);
36 is ($foo, 'local');
38 is ($foo, 'global');
47 is ($$$foo, 'valid');
55 is ($$$FOO, 'hit');
81 is ($$$refref, 'Good');
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/cmd/
Dfor.t100 sub is {
116 is ($r, 'ABC', 'Forwards for array');
121 is ($r, '123', 'Forwards for list');
126 is ($r, 'ABC', 'Forwards for array via map');
131 is ($r, '123', 'Forwards for list via map');
137 is ($r, 'CBA', 'Reverse for array');
142 is ($r, '321', 'Reverse for list');
147 is ($r, 'CBA', 'Reverse for array via map');
152 is ($r, '321', 'Reverse for list via map');
158 is ($r, 'ABC', 'Forwards for array with var');
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/CGI/t/
Dcookie.t34 is(ref($result), 'HASH', "Hash ref returned in scalar context");
38 is(@result, 8, "returns correct number of fields");
42 is(@result, 6, "returns correct number of fields");
46 is($result{foo}->value, '123', "cookie foo is correct");
47 is($result{bar}->value, 'qwerty', "cookie bar is correct");
48 is($result{baz}->value, 'wibble', "cookie baz is correct");
49 is($result{qux}->value, 'a1', "cookie qux is correct");
70 is(ref($result{foo}), 'CGI::Cookie', 'Type of objects returned is correct');
71 is($result{foo}->value, 'vixen', "cookie foo is correct");
72 is($result{bar}->value, 'cow', "cookie bar is correct");
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/t/
DMM_Unix.t47 is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_");
50 is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'),
52 is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
55 is ($class->file_name_is_absolute('Bombdadil'),
59 is ($class->path(), File::Spec->path(), 'path() same as File::Spec->path()');
63 is ($class->$_(), File::Spec->$_(), $_ );
141 is ($t->has_link_code(),1,'has_link_code'); is ($t->{HAS_LINK_CODE},1);
144 is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
147 is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
150 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Simple/t/
Dis_deeply_fail.t35 sub is ($$;$) {
64 is( $out, "not ok 1 - plain strings\n", 'plain strings' );
65 is( $err, <<ERR, ' right diagnostic' );
75 is( $out, "not ok 2 - different types\n", 'different types' );
86 is( $out, "not ok 3 - hashes with different values\n",
88 is( $err, <<ERR, ' right diagnostic' );
98 is( $out, "not ok 4 - hashes with different keys\n",
100 is( $err, <<ERR, ' right diagnostic' );
110 is( $out, "not ok 5 - arrays of different length\n",
112 is( $err, <<ERR, ' right diagnostic' );
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
DDB.t37 is( $ret, 3, 'DB::sub() should handle scalar context' );
38 is( $callflag, 1, '... should call $DB::sub contents' );
40 is( $ret, '1 4 9', '... should handle scalar context' );
41 is( $callflag, 3, '... should pass along arguments to the sub' );
53 is( DB::catch(), 1, 'DB::catch() should work' );
54 is( DB->skippkg('foo'), 1, 'DB->skippkg() should push args' );
61 is( $DB::filename, $0, '... should set $DB::filename' );
62 is( $DB::lineno, __LINE__ - 4, '... should set $DB::lineno' );
75 is( "$@$!$,$/$\$^W", "1\n0", 'DB::save() should reset punctuation vars' );
87 is( DB::_clientname('foo=A(1)'), 'foo',
[all …]
Dconstant.t25 is substr(PI, 0, 7), '3.14159', ' in substr()';
38 is UNDEF1, undef, 'right way to declare an undef';
39 is UNDEF2, undef, ' weird way';
40 is UNDEF3, undef, ' short way';
44 is @undef, 1;
45 is $undef[0], undef;
48 is @undef, 0;
50 is @undef, 0;
52 is @undef, 0;
58 is COUNTDOWN, '54321';
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Tie/File/t/
D42_offset.t34 is (ref($o), 'Tie::File');
36 is ($o->offset(0), 0, 'first one always there');
37 is ($o->offset(1), undef, 'no offsets yet');
40 is ($o->offset(0), 0, 'first is ok');
41 is ($o->offset(1), 8, 'and second ok');
42 is ($o->offset(2), undef, 'third undef');
45 is ($o->offset(0), 0, 'first is ok');
46 is ($o->offset(1), 8, 'and second ok');
47 is ($o->offset(2), 14, 'and third ok');
48 is ($o->offset(3), undef, 'fourth undef');
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Hash/
DUtil.t30 is( $hash{bar}, 23 );
36 is( $hash{bar}, 69 );
55 is( $hash{locked}, 'yep' );
65 is( $hash{I_dont_exist}, 42, 'unlock_keys' );
71 is( $@, '', ' but can be deleted :(' );
75 is( $hash{locked}, 42, 'unlock_value' );
100 is( $@, '');
108 is( keys %hash, 0, 'lock_keys() w/keyset shouldnt add new keys' );
110 is( keys %hash, 1 );
117 is( $@, '', 'unlock_keys' );
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Pod/t/
DInputObjects.t21 is( $p_is->name, '(unknown)', 'Pod::InputSource->name()' );
22 is( $p_is->name( 'test' ), 'test', 'set Pod::InputSource->name( test )' );
23 is( $p_is->filename, 'test', 'Pod::InputSource->filename() alias' );
25 is( $p_is->handle, \*FH, 'Pod::InputSource->handle()' );
27 is( $p_is->was_cutting(), 0, 'Pod::InputSource->was_cutting()' );
28 is( $p_is->was_cutting( 1 ), 1, 'set Pod::InputSource->was_cutting( 1 )' );
37 is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
38 is( $p_p1->cmd_name( 'head1' ), 'head1',
43 is( $p_p1->text(), 'NAME', 'Pod::Paragraph->text()' );
44 is( $p_p2->text(), 'test - This is the test suite',
[all …]

12345678910>>...101