This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make XS sort routines work again
[perl5.git] / ext / XS-APItest / t / sort.t
1 #!perl -w
2
3 use strict;
4 use warnings;
5 use Test::More tests => 1;
6
7 use XS::APItest;
8
9 is join("", sort xs_cmp split//, '1415926535'), '1135559246',
10   'sort treats XS cmp routines as having implicit ($$)';