[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 03/05: comm: Add 'herd load' test for exceptions containing r
From: |
Ludovic Courtès |
Subject: |
[shepherd] 03/05: comm: Add 'herd load' test for exceptions containing records. |
Date: |
Wed, 8 May 2019 10:24:37 -0400 (EDT) |
civodul pushed a commit to branch master
in repository shepherd.
commit eda4091f89c08267efea56799d6661fb76829b13
Author: Ludovic Courtès <address@hidden>
Date: Wed May 8 15:54:05 2019 +0200
comm: Add 'herd load' test for exceptions containing records.
* tests/basic.sh: Add 'herd load' test with throw to 'what?!.
---
tests/basic.sh | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/tests/basic.sh b/tests/basic.sh
index 2d67b1c..a6148fc 100644
--- a/tests/basic.sh
+++ b/tests/basic.sh
@@ -224,6 +224,17 @@ if $herd load root "$confdir/some-conf.scm"
then false; else true; fi
$herd status # still here?
+# Load code that throws an object with no read syntax.
+cat > "$confdir/some-conf.scm" <<EOF
+(use-modules (srfi srfi-9))
+(define-record-type <something> (something) something?)
+(throw 'what?! (something))
+EOF
+
+if $herd load root "$confdir/some-conf.scm"
+then false; else true; fi
+$herd status # still here?
+
# Evaluate silly code, make sure nothing breaks.
if $herd eval root '(/ 0 0)'
then false; else true; fi