diff --git a/exercises/practice/perfect-numbers/.meta/tests.toml b/exercises/practice/perfect-numbers/.meta/tests.toml
index ec28889..81d4840 100644
--- a/exercises/practice/perfect-numbers/.meta/tests.toml
+++ b/exercises/practice/perfect-numbers/.meta/tests.toml
@@ -27,6 +27,9 @@ description = "Abundant numbers -> Medium abundant number is classified correctl
 [ec7792e6-8786-449c-b005-ce6dd89a772b]
 description = "Abundant numbers -> Large abundant number is classified correctly"
 
+[05f15b93-849c-45e9-9c7d-1ea131ef7d10]
+description = "Abundant numbers -> Perfect square abundant number is classified correctly"
+
 [e610fdc7-2b6e-43c3-a51c-b70fb37413ba]
 description = "Deficient numbers -> Smallest prime deficient number is classified correctly"
 
diff --git a/exercises/practice/perfect-numbers/test/src/Main.idr b/exercises/practice/perfect-numbers/test/src/Main.idr
index c09a9d4..0d084a9 100644
--- a/exercises/practice/perfect-numbers/test/src/Main.idr
+++ b/exercises/practice/perfect-numbers/test/src/Main.idr
@@ -27,6 +27,7 @@ tests =
   , test "Smallest abundant number is classified correctly"                 (assertEq (classify 12) $ Just Abundant)
   , test "Medium abundant number is classified correctly"                   (assertEq (classify 30) $ Just Abundant)
   , test "Large abundant number is classified correctly"                    (assertEq (classify 33550335) $ Just Abundant)
+  , test "Perfect square abundant number is classified correctly"           (assertEq (classify 196) $ Just Abundant)
   , test "Smallest prime deficient number is classified correctly"          (assertEq (classify 2) $ Just Deficient)
   , test "Smallest non-prime deficient number is classified correctly"      (assertEq (classify 4) $ Just Deficient)
   , test "Medium deficient number is classified correctly"                  (assertEq (classify 32) $ Just Deficient)