From a62624301bc7ffef4996364a208b17cd7f3584bc Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Fri, 1 Jul 2016 14:39:21 +0200
Subject: base: Add %program-name parameter object.

---
 tests/base.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests/base.scm')

diff --git a/tests/base.scm b/tests/base.scm
index 2e09bc9..4557bb8 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -19,3 +19,7 @@
 
 (use-modules (cuirass base)
              (srfi srfi-64))
+
+(test-error "invalid program name"
+  'wrong-type-arg
+  (%program-name #f))
-- 
cgit v1.2.3