From ab49755863d3ac7c1363175476786db4f62d546f Mon Sep 17 00:00:00 2001
From: kalmarek <kalmar@amu.edu.pl>
Date: Sat, 18 Aug 2018 23:25:20 +0200
Subject: [PATCH] add tests!

---
 .gitignore  |   2 +-
 runtests.jl | 109 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 110 insertions(+), 1 deletion(-)
 create mode 100644 runtests.jl

diff --git a/.gitignore b/.gitignore
index 2500d2c..67897dc 100644
--- a/.gitignore
+++ b/.gitignore
@@ -10,4 +10,4 @@ SL*_*
 *ipynb*
 *.gws
 .*
-*test*
+tests*
diff --git a/runtests.jl b/runtests.jl
new file mode 100644
index 0000000..ff39cc9
--- /dev/null
+++ b/runtests.jl
@@ -0,0 +1,109 @@
+using Base.Test
+
+include("main.jl")
+
+testdir = "tests_"*string(now())
+info(testdir)
+mkdir(testdir)
+cd(testdir)
+
+function SL_tests(::Type{T}, args) where {T<:Union{Standard, Symmetrize}}
+
+    G = PropertyTGroups.SpecialLinearGroup(args)
+    args["p"] = 3
+    @test main(T, G) == true
+
+    println("\n"*"="^30*"\n")
+
+    begin
+        args["p"] = 5
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == false
+
+        args["warmstart"] = true
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == false
+    end
+
+    println("\n"*"="^30*"\n")
+
+    begin
+        args["p"] = 7
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == false
+
+        println("\n"*"="^30*"\n")
+
+        args["upper-bound"] = 0.25
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == false
+    end
+
+    println("\n"*"="^30*"\n")
+
+    args["N"] = 3
+    G = PropertyTGroups.SpecialLinearGroup(args)
+    @test main(T, G) == true
+
+    println("\n"*"="^30*"\n")
+
+    begin
+        args["p"] = 0
+        args["iterations"] = 50000
+        args["upper-bound"] = Inf
+
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == false
+
+        args["upper-bound"] = 0.27
+        args["warmstart"] = true
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == false
+
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == true
+        G = PropertyTGroups.SpecialLinearGroup(args)
+        @test main(T, G) == true
+    end
+
+    return main(T, G)
+end
+
+@testset "SLn's" begin
+
+    @testset "Non-Symmetrized" begin
+
+        args = Dict(
+            "N" => 2,
+            "p" => 3,
+            "X" => false,
+            "iterations"=>50000,
+            "tol"=>1e-7,
+            "upper-bound"=>Inf,
+            "cpus"=>2,
+            "radius"=>2,
+            "warmstart"=>false,
+            "nosymmetry"=>true,
+        )
+
+        @time SL_tests(Standard, args)
+    end
+
+    @testset "Symmetrized" begin
+
+        args = Dict(
+            "N" => 2,
+            "p" => 3,
+            "X" => false,
+            "iterations"=>50000,
+            "tol"=>1e-7,
+            "upper-bound"=>Inf,
+            "cpus"=>2,
+            "radius"=>2,
+            "warmstart"=>false,
+            "nosymmetry"=>false,
+        )
+
+        @time SL_tests(Symmetrize, args)
+    end
+end