Added powers tests

Author: jakewilliami

.gitignore

@@ -28,4 +28,4 @@ Manifest.toml
 
 # miscellaneous stuff
 other/
-PRIME_README/
+PRIME_README/

src/CodingTheory.jl

@@ -10,7 +10,7 @@ ENV["HECKE_PRINT_BANNER"] = "false"
 # ENV["NEMO_PRINT_BANNER"] = "false"
 
 # using Nemo: isprime, factor, fmpz # for prime power function
-using Hecke: ispower, isprime_power # for perfect power function
+using Hecke: ispower, isprime_power, isprime # for perfect power function
 # using Primes: isprime, primes
 using LinearAlgebra: I
 using FLoops: @floop, ThreadedEx

test/runtests.jl

@@ -87,6 +87,14 @@ end
 
 	@test mod(rem(p, q), 3) == Polynomial([1, 1])
 	@test mod(rem(a, b), 2) == Polynomial([1])
+    
+    @test isperfectpower(36) == true
+	@test isprimepower(36) == false
+	@test isperfectpower(9) == true
+	@test isprimepower(9) == true
+	@test isperfectpower(5) == false
+	@test isprimepower(2) == true
+	@test isprimepower(18) == false
 
 	@test rref([1 0 1 1 1; 1 1 1 0 1; 0 1 1 1 1], 2) == [1 0 0 1 0; 0 1 0 1 0; 0 0 1 0 1]
 	@test rref([1 0 1 0 1 0; 0 1 0 0 1 0; 1 1 1 1 1 1], 2) == [1 0 1 0 1 0; 0 1 0 0 1 0; 0 0 0 1 1 1]