Home
last modified time | relevance | path

Searched refs:_qq (Results 1 – 7 of 7) sorted by relevance

/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/t/
Dtestutil.pl196 sub _qq { subroutine
276 unshift(@mess, "# got "._qq($got)."\n",
277 "# expected "._qq($expected)."\n");
295 unshift(@mess, "# it should not be "._qq($got)."\n",
322 unshift(@mess, "# got "._qq($got)."\n",
323 "# expected $type "._qq($expected)."\n");
359 unshift@mess, "# got "._qq($got)."\n",
360 "# expected "._qq($expected)." (within "._qq($range).")\n";
435 _print "# key ", _qq($key), " was ", _qq($orig->{$key}),
436 " now ", _qq($value), "\n";
[all …]
/openbsd/src/gnu/usr.bin/perl/t/
Dtest.pl296 sub _qq { subroutine
402 unshift(@mess, "# got "._qq($got)."\n",
403 "# expected "._qq($expected)."\n");
410 push @mess,"# after "._qq(substr($got,$p < 40 ? 0 : $p - 40,
412 push @mess,"# have "._qq(substr($got,$p,40))."\n";
413 push @mess,"# want "._qq(substr($expected,$p,40))."\n";
432 unshift(@mess, "# it should not be "._qq($got)."\n",
459 unshift(@mess, "# got "._qq($got)."\n",
460 "# expected $type "._qq($expected)."\n");
496 unshift@mess, "# got "._qq($got)."\n",
[all …]
/openbsd/src/gnu/usr.bin/perl/Porting/
Dtest-dist-modules.pl456 sub _qq {
677 _print "# key ", _qq($key), " was ", _qq($orig->{$key}),
678 " now ", _qq($value), "\n";
682 _print "# key ", _qq($key), " is ", _qq($value),
691 _print "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
/openbsd/src/gnu/usr.bin/perl/t/op/
Dpack.t474 print "# ${un}pack ('$template', "._qq($in).') gave '._qq($out).
475 ' not '._qq($got)."\n";
999 _qq($in), encode_list (@got), encode_list (@out);
1006 _qq($in), encode_list ($got), encode_list ($out[0]);
Deach.t159 is (length(), 1, "Check length of " . _qq $_);
/openbsd/src/gnu/usr.bin/perl/ext/POSIX/t/
Dposix.t337 or print "\$\@ is " . _qq($@) . "\n";
/openbsd/src/gnu/usr.bin/perl/lib/
Dutf8.t200 print "# \$\@=", _qq($@), "\n";