#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Test::More tests => 1;
use List::Util qw{ shuffle };
use SmoothSort;

my @arr = shuffle(1 .. 10000);
say "@arr";
SmoothSort::smoothsort(\@arr);
say "@arr";

is_deeply(\@arr, [ 1 .. 10000 ], 'sorted');