From 7bee5617d196b5ee89ba04cb552459059bde3cb6 Mon Sep 17 00:00:00 2001
From: Jonathan Leto <jonathan@leto.net>
Date: Thu, 22 May 2008 20:36:13 -0400
Subject: [PATCH] Sort tests that are still failing...

---
 lib/Math/GSL/Sort/Test.pm | 21 +++++++++++++++++++++
 t/Sort.t                  |  2 ++
 2 files changed, 23 insertions(+)
 create mode 100644 lib/Math/GSL/Sort/Test.pm
 create mode 100644 t/Sort.t

diff --git a/lib/Math/GSL/Sort/Test.pm b/lib/Math/GSL/Sort/Test.pm
new file mode 100644
index 0000000..6854afb
--- /dev/null
+++ b/lib/Math/GSL/Sort/Test.pm
@@ -0,0 +1,21 @@
+package Math::GSL::Sort::Test;
+use base q{Test::Class};
+use Test::More;
+use Math::GSL::Sort qw/:plain :vector :all/;
+use Math::GSL qw/is_similar/;
+use Data::Dumper;
+use strict;
+
+sub make_fixture : Test(setup) {
+}
+sub teardown : Test(teardown) {
+}
+
+sub GSL_SORT : Tests {
+    my $x = [ 2**10, 1, 42, 17, 6900, 3 ];
+    gsl_sort($x, 1, $#$x );
+    print Dumper [ $x ];
+    
+}
+
+42;
diff --git a/t/Sort.t b/t/Sort.t
new file mode 100644
index 0000000..c263932
--- /dev/null
+++ b/t/Sort.t
@@ -0,0 +1,2 @@
+use Math::GSL::Sort::Test;
+Test::Class->runtests;
-- 
2.11.4.GIT