/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | no_tabindex.t | 34 qq(<input type="submit" name=".submit" />), 39 qq(<input type="submit" name="foo" value="bar" />), 44 qq(<input type="submit" name="foo" value="bar" />), 48 qq(<input type="text" name="weather" value="dull" />), 53 qq(<input type="text" name="weather" value="dull" />), 59 qq(<input type="text" name="weather" value="nice" />), 64 qq(<label><input type="checkbox" name="weather" value="nice" />weather</label>), 70 qq(<label><input type="checkbox" name="weather" value="nice" />forecast</label>), 78 qq(<label><input type="checkbox" name="weather" value="nice" checked="checked" />forecast</label>), 84 qq(<labe [all...] |
H A D | form.t | 32 qq(<form method="get" action="foobar" enctype="multipart/form-data">\n), 36 qq(<input type="submit" tabindex="1" name=".submit" />), 41 qq(<input type="submit" tabindex="2" name="foo" value="bar" />), 46 qq(<input type="submit" tabindex="3" name="foo" value="bar" />), 50 qq(<input type="text" name="weather" tabindex="4" value="dull" />), 55 qq(<input type="text" name="weather" tabindex="5" value="dull" />), 61 qq(<input type="text" name="weather" tabindex="6" value="nice" />), 66 qq(<label><input type="checkbox" name="weather" value="nice" tabindex="7" />weather</label>), 72 qq(<label><input type="checkbox" name="weather" value="nice" tabindex="8" />forecast</label>), 80 qq(<labe [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | cpp.t | 19 system qq{$^X -"P" "comp/cpp.aux"};
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | openpid.t | 28 $perl .= qq[ "-I../lib"]; 37 $cmd1 = qq/$perl -e "\$|=1; print qq[first process\\n]; sleep 30;"/; 38 $cmd2 = qq/$perl -e "\$|=1; print qq[second process\\n]; sleep 30;"/; 39 $cmd3 = qq/$perl -e "print <>;"/; # hangs waiting for end of STDIN 40 $cmd4 = qq/$perl -e "print scalar <>;"/;
|
H A D | fflush.t | 37 my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X; 38 $runperl .= qq{ "-I../lib"}; 92 my $command = qq{$runperl "ff-prog" "$f" "l"}; 125 my $command = qq{$runperl "ff-prog" "$f" "rl"}; 139 sprintf('print qq[ok $_] for (%d..%d)', $t, $t+2));
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | ParseWords.t | 13 @words = shellwords(qq(foo "bar quiz" zoo)); 27 print "not " unless join(";", @words) eq qq(foo;"bar:foo";zoo zoo;); 33 print "not " unless join(";", @words) eq qq(4; ;3; ;2; ;1; ;0); 109 print "not " unless join(";", @words) eq qq(4;3;2;1;0);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | die_exit.t | 54 system(qq{$^X -e "\$! = $bang; \$? = $query; $code"}); 57 system(qq{$^X -e '\$! = $bang; \$? = $query; $code'});
|
H A D | do.t | 84 eval qq{ do qq(a file that does not exist); }; 87 eval qq{ do uc qq(a file that does not exist); };
|
H A D | exec.t | 31 $exit = system qq{$Perl -le "print q{ok $tnum - interp system(EXPR)"}}; 37 $exit = system qq{$Perl -le "print q{ok $tnum - split & direct system(EXPR)"}}; 86 is( system(qq{$Perl -e "exit 0"}), 0, 'Explicit exit of 0' ); 89 is( system(qq{$Perl "-I../lib" -e "use vmsish qw(hushed); exit 1"}), $exit_one, 124 exec $Perl, '-le', qq{${quote}print 'ok $test - exec PROG, LIST'${quote}};
|
/opensolaris-onvv-gate/usr/src/lib/libmp/common/ |
H A D | mdiv.c | 153 int qq; local 178 for (qq = 0; qq < r->len; qq++) { 179 r->val[qq] = a->val[qq]; 198 qq = m_trq(v1, v2, uval[j + n], uval[j + n - 1], 200 if (m_dsb(qq, n, v.val, uval + j)) 201 qq -= 1; 202 qval[j] = (short)qq; [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
H A D | Unicode.t | 58 is($n_16be, encode('UTF-16BE', $nasty), qq{encode UTF-16BE}); 59 is($n_16le, encode('UTF-16LE', $nasty), qq{encode UTF-16LE}); 60 is($n_32be, encode('UTF-32BE', $nasty), qq{encode UTF-32BE}); 61 is($n_32le, encode('UTF-32LE', $nasty), qq{encode UTF-16LE}); 63 is($nasty, decode('UTF-16BE', $n_16be), qq{decode UTF-16BE}); 64 is($nasty, decode('UTF-16LE', $n_16le), qq{decode UTF-16LE}); 65 is($nasty, decode('UTF-32BE', $n_32be), qq{decode UTF-32BE}); 66 is($nasty, decode('UTF-32LE', $n_32le), qq{decode UTF-32LE}); 68 is($n_16bb, encode('UTF-16', $nasty), qq{encode UTF-16}); 69 is($n_32bb, encode('UTF-32', $nasty), qq{encod [all...] |
/opensolaris-onvv-gate/usr/src/lib/libadm/common/ |
H A D | listdev.c | 81 char **qq; local 101 qq = pp; 103 while (*qq && (strcmp(*rr, *qq) > 0)) { 105 *rr++ = *qq; 106 *qq++ = t;
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/eg/ |
H A D | internal_links.cgi | 28 print qq{<LI>List item #$_ <A HREF="$myself#start">Jump to top</A>\n};
|
H A D | multiple_forms.cgi | 48 print qq{<P><A HREF="./">Other examples</A>}; 49 print qq{<P><A HREF="../cgi_docs.html">Go to the documentation</A>};
|
H A D | popup.cgi | 31 print qq{<P><A HREF="cgi_docs.html">Go to the documentation</A>};
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | prereq_print.t | 36 my $prereq_out = run(qq{$Perl Makefile.PL "PREREQ_PRINT=1"}); 49 $prereq_out = run(qq{$Perl Makefile.PL "PRINT_PREREQ=1"}); 57 #my $prereq_out = run(qq{$Perl Makefile.PL "PREREQ_PRINT=0"}); 63 #my $prereq_out = run(qq{$Perl Makefile.PL "PRINT_PREREQ=1"});
|
/opensolaris-onvv-gate/usr/src/cmd/sgs/yacc/common/ |
H A D | y3.c | 131 int *pp, *qq; local 155 qq = rr; 156 for (pp = p; pp <= q; ++pp, ++qq) { 158 diff = qq - rr; 159 while (qq >= &amem[new_actsize-1]) { 161 qq = diff + rr; 163 if (*pp != *qq && *qq != 0) 174 qq = rr; 175 for (pp = p; pp <= q; ++pp, ++qq) { 434 register ITEM *pp, *qq; local [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | utf8.t | 157 qq{\$a = "$_->[1]"; \$b = show \$a}, qr/^>$_->[2]<$/], 159 qq(no utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[2]<$/], 161 qq(use utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[0]<$/], 165 # "out of memory" error. We really need the "" [rather than qq() 210 qq(my \$a = "$_->[1]"; my %h; \$h{\$a} = 1; 214 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1; 218 qq(use utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1; 223 qq(my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1; 227 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1; 231 qq(us [all...] |
H A D | strict.t | 102 eval qq(use strict 'garbage'); 106 eval qq(no strict 'garbage'); 110 eval qq(use strict qw(foo bar)); 114 eval qq(no strict qw(foo bar));
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/t/ |
H A D | Langinfo.t | 63 print qq[ok $i - $try is "$got"\n]; 65 print qq[not ok $i - $try is "$got" not "$want{$try}"\n]; 68 print qq[ok $i - Skip: $try not defined\n];
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | showlex.t | 27 my $path = join " ", map { qq["-I$_"] } @INC;
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safe3.t | 29 $safe->reval( qq{\$_[1] = qq/\0/ x } . $masksize );
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
H A D | tr_eucjp.t | 54 $str = $hiragana; eval qq(\$str =~ tr/��-��/��-��/); 55 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); 56 $str = $katakana; eval qq(\$str =~ tr/��-��/��-��/); 57 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
|
H A D | tr_sjis.t | 54 $str = $hiragana; eval qq(\$str =~ tr/��-��/�@-��/); 55 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); 56 $str = $katakana; eval qq(\$str =~ tr/�@-��/��-��/); 57 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
|
H A D | tr_utf8.t | 55 $str = $hiragana; eval qq(\$str =~ tr/���-���/���-���/); 56 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); 57 $str = $katakana; eval qq(\$str =~ tr/���-���/���-���/); 58 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
|