From 177d2fe98b2d0973f3f4a93f6d1d53687e3ee01b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A1s=20B=20Nagy?=
 <20251272+BNAndras@users.noreply.github.com>
Date: Tue, 23 Apr 2024 23:38:01 -0700
Subject: [PATCH] Sync pangram tests and update stub (#358)

---
 exercises/practice/pangram/pangram-test.el | 57 +++++++++++++---------
 exercises/practice/pangram/pangram.el      |  7 ++-
 2 files changed, 39 insertions(+), 25 deletions(-)

diff --git a/exercises/practice/pangram/pangram-test.el b/exercises/practice/pangram/pangram-test.el
index ef03a905..0486a060 100644
--- a/exercises/practice/pangram/pangram-test.el
+++ b/exercises/practice/pangram/pangram-test.el
@@ -1,42 +1,53 @@
-;;; pagram-test.el --- Tests for Pangram (exercism)  -*- lexical-binding: t; -*-
+;;; pangram-test.el --- Tests for Pangram (exercism)  -*- lexical-binding: t; -*-
 
 ;;; Commentary:
-;; Common test data version: 1.3.0 d79e13e
 
 ;;; Code:
 
+
 (load-file "pangram.el")
 (declare-function pangramp "pangram.el" (phrase))
 
-(ert-deftest sentence-empty ()
-  (should (equal nil (pangramp ""))))
 
-(ert-deftest recognizes-a-perfect-lower-case-pangram ()
-  (should (equal t (pangramp "abcdefghijklmnopqrstuvwxyz"))))
+(ert-deftest empty-sentence ()
+  (should-not (pangramp "")))
+
+
+(ert-deftest perfect-lower-case ()
+  (should (pangramp "abcdefghijklmnopqrstuvwxyz")))
+
+
+(ert-deftest only-lower-case ()
+  (should (pangramp "the quick brown fox jumps over the lazy dog")))
+
+
+(ert-deftest missing-the-letter-x ()
+  (should-not (pangramp "a quick movement of the enemy will jeopardize five gunboats")))
+
+
+(ert-deftest missing-the-letter-h ()
+  (should-not (pangramp "five boxing wizards jump quickly at it")))
+
+
+(ert-deftest with-underscores ()
+  (should (pangramp "the_quick_brown_fox_jumps_over_the_lazy_dog")))
+
 
-(ert-deftest  pangram-with-only-lower-case ()
-  (should (equal t (pangramp "the quick brown fox jumps over the lazy dog"))))
+(ert-deftest with-numbers ()
+  (should (pangramp "the 1 quick brown fox jumps over the 2 lazy dogs")))
 
-(ert-deftest missing-character-x ()
-  (should (equal nil (pangramp "a quick movement of the enemy will jeopardize five gunboats"))))
 
-(ert-deftest missing-another-character-eg-h ()
-  (should (equal nil (pangramp "five boxing wizards jump quickly at it"))))
+(ert-deftest missing-letters-replaced-by-numbers ()
+  (should-not (pangramp "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog")))
 
-(ert-deftest  pangram-with-underscores ()
-  (should (equal t (pangramp "the_quick_brown_fox_jumps_over_the_lazy_dog"))))
 
-(ert-deftest  pangram-with-numbers ()
-  (should (equal t (pangramp "the 1 quick brown fox jumps over the 2 lazy dogs"))))
+(ert-deftest mixed-case-and-punctuation ()
+  (should (pangramp "\"Five quacking Zephyrs jolt my wax bed.\"")))
 
-(ert-deftest  missing-letters-replaced-by-numbers ()
-  (should (equal nil (pangramp "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog"))))
 
-(ert-deftest  pangram-with-mixed-case-and-punctuation ()
-  (should (equal t (pangramp "\"Five quacking Zephyrs jolt my wax bed.\""))))
+(ert-deftest a-m-and-A-M-are-26-different-characters-but-not-a-pangram ()
+  (should-not (pangramp "abcdefghijklm ABCDEFGHIJKLM")))
 
-(ert-deftest  a-m-and-A-M-are-26-different-characters-but-not-a-pangram ()
-  (should (equal nil (pangramp "abcdefghijklm ABCDEFGHIJKLM"))))
 
 (provide 'pangram-test)
-;;; pagram-test.el ends here
+;;; pangram-test.el ends here
diff --git a/exercises/practice/pangram/pangram.el b/exercises/practice/pangram/pangram.el
index 3ee08adb..333a9ad8 100644
--- a/exercises/practice/pangram/pangram.el
+++ b/exercises/practice/pangram/pangram.el
@@ -2,9 +2,12 @@
 
 ;;; Commentary:
 
-(defun pangramp (phrase)
 ;;; Code:
-)
+
+
+(defun pangramp (phrase)
+  (error "Delete this S-Expression and write your own implementation"))
+
 
 (provide 'pangram)
 ;;; pangram.el ends here