1use Test::More tests => 1;
2use PDL::LiteF;
3use PDL::Math;
4
5use strict;
6use warnings;
7
8kill 'INT',$$ if $ENV{UNDER_DEBUGGER}; # Useful for debugging.
9
10ok( all approx( qsort(
11	(polyroots(
12			pdl( 1,-55,1320,-18150,157773,-902055, 3416930,-8409500,12753576,-10628640,3628800 ),
13			zeroes(11)
14		))[0]
15), 1+sequence(10) ) );
16