Add regexp-test

src/ejc_sql/connect.clj

@@ -1,6 +1,6 @@
 ;;; connect.clj -- Core clojure functions for ejc-sql emacs extension.
 
-;;; Copyright © 2013-2023 - Kostafey <[email protected]>
+;;; Copyright © 2013-2024 - Kostafey <[email protected]>
 
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -119,7 +119,7 @@ SELECT * FROM urls WHERE path like '%http://localhost%'"
 (def comments-re
   "Regex to search comments in SQL expression."
   (java.util.regex.Pattern/compile
-   "(?:/\\*.*?\\*/)|(?:--.*?$)",
+   "(?:/\\*.*?\\*/[\\s;]*\n?)|(?:--.*?$\n)",
    (bit-or java.util.regex.Pattern/DOTALL
            java.util.regex.Pattern/MULTILINE)))
 

test/ejc_sql/regexp_test.clj

@@ -0,0 +1,45 @@
+(ns ejc-sql.regexp-test
+  (:require [clojure.string :as s]
+            [clojure.test :refer [deftest testing is]]
+            [ejc-sql.connect :as conn]))
+
+(deftest comments-re-test
+  (testing "comments-re test."
+
+    (is (= "
+DROP TABLE IF EXISTS `user`;
+" (s/replace "
+DROP TABLE IF EXISTS `user`;
+" conn/comments-re "")))
+
+    (is (= "
+DROP TABLE IF EXISTS `user`;
+" (s/replace "
+-- Remove before recreate
+DROP TABLE IF EXISTS `user`;
+" conn/comments-re "")))
+
+    (is (= "
+" (s/replace "
+-- Remove before recreate DROP TABLE IF EXISTS `user`;
+" conn/comments-re "")))
+
+    (is (= "
+DROP TABLE IF EXISTS `user`;
+" (s/replace "
+/* Remove before recreate */
+DROP TABLE IF EXISTS `user`;
+" conn/comments-re "")))
+
+    (is (= "
+DROP TABLE IF EXISTS `user`;
+" (s/replace "
+/* Remove before recreate */;
+DROP TABLE IF EXISTS `user`;
+" conn/comments-re "")))
+
+    (is (= "
+DROP TABLE IF EXISTS `user`;
+" (s/replace "
+/* Remove before recreate */; DROP TABLE IF EXISTS `user`;
+" conn/comments-re "")))))