emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/triples 4627d6ed6d 10/19: Fix minor mistakes in ert tes


From: ELPA Syncer
Subject: [elpa] externals/triples 4627d6ed6d 10/19: Fix minor mistakes in ert tests.
Date: Sat, 5 Nov 2022 11:58:16 -0400 (EDT)

branch: externals/triples
commit 4627d6ed6d32acc2dfb9887d30ec38e6853b4525
Author: Andrew Hyatt <ahyatt@gmail.com>
Commit: Andrew Hyatt <ahyatt@gmail.com>

    Fix minor mistakes in ert tests.
---
 triples-test.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/triples-test.el b/triples-test.el
index 4a38d42ed0..d94c1e54ec 100644
--- a/triples-test.el
+++ b/triples-test.el
@@ -102,7 +102,7 @@ easily debug into it.")
 (ert-deftest triples-crud ()
   (triples-test-with-temp-db
    (triples-add-schema db 'named
-                       '(name :unique t)
+                       '(name :base/unique t)
                        'alias)
    (triples-set-type db "foo" 'named :name "Name" :alias '("alias1" "alias2"))
    (should (equal (triples-test-plist-sort '(:name "Name" :alias ("alias1" 
"alias2")))
@@ -117,8 +117,8 @@ easily debug into it.")
 (ert-deftest triples-crud-all ()
   (triples-test-with-temp-db
     (triples-add-schema db 'named
-                        '(name :unique t))
-    (triples-add-schema db 'positioned '(position :unique t))
+                        '(name :base/unique t))
+    (triples-add-schema db 'positioned '(position :/base/unique t))
     (should-not (triples-get-subject db "foo"))
     (triples-set-subject db "foo"
                          '(named :name "bar")
@@ -131,7 +131,7 @@ easily debug into it.")
 (ert-deftest triples-set-types ()
   (triples-test-with-temp-db
     (triples-add-schema db 'named
-                       '(name :unique t)
+                        '(name :/base/unique t)
                        'alias)
     (triples-add-schema db 'reachable 'phone)
     (triples-set-type db "foo" 'named :name "Name" :alias '("alias1" "alias2"))
@@ -149,8 +149,8 @@ easily debug into it.")
 (ert-deftest triples-reversed ()
   (triples-test-with-temp-db
    (triples-add-schema db 'named
-                       '(name :unique t)
-                       '(locale :unique t))
+                       '(name :base/unique t)
+                       '(locale :base/unique t))
    (triples-add-schema db 'locale
                        '(used-in-name :base/virtual-reversed named/locale))
    (triples-set-type db "en/US" 'locale nil)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]