[perl5.git] / ext / XS-APItest / t / sort.t

#!perl -w

use strict;
use warnings;
use Test::More tests => 2;

use XS::APItest;

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