ext/XS-APItest/t/sort.t

   1 #!perl -w
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 2;
   6
   7 use XS::APItest;
   8
   9 is join("", sort xs_cmp split//, '1415926535'), '1135559246',
  10   'sort treats XS cmp routines as having implicit ($$)';
  11 {
  12   my $w;
  13   local $SIG{__WARN__} = sub { $w .= shift };
  14   () = sort xs_cmp_undef 1,2;
  15   like $w, qr/^Use of uninitialized value in sort at /,
  16    'warning about undef retval from cmp routine mentions sort';
  17 }