[shepherd] 03/05: comm: Add 'herd load' test for exceptions containing records.

[Ludovic Courtès]

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