diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-11-13 01:54:41 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-11-17 01:19:05 +0100 |
| commit | bfd395c09fc2eae6b777ef775584337f26861877 (patch) | |
| tree | fe8767f333603bd4fc1b656e596673ab52dd39dd /tests | |
| parent | a948f556eb5e58f31aafa81e7e2125a6a1f91d7b (diff) | |
| download | cuirass-bfd395c09fc2eae6b777ef775584337f26861877.tar cuirass-bfd395c09fc2eae6b777ef775584337f26861877.tar.gz | |
db: Forbid inserting the same specification twice.
* src/schema.sql (Specifications): Make 'repo_name' the primary key.
(Stamps, Evaluations): Adapt.
* src/cuirass/database.scm (db-get-specifications): Likewise.
(db-add-specification): Ignore if SPEC has already been added.
* tests/database.scm (example-spec): Adapt.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/database.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/database.scm b/tests/database.scm index 2dd3746..7f3b972 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -21,8 +21,7 @@ (srfi srfi-64)) (define example-spec - '((#:id . 1) - (#:name . "guix") + '((#:name . "guix") (#:url . "git://git.savannah.gnu.org/guix.git") (#:load-path . ".") (#:file . "/tmp/gnu-system.scm") |