summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-45.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/srfi-45.test')
-rw-r--r--test-suite/tests/srfi-45.test10
1 files changed, 9 insertions, 1 deletions
diff --git a/test-suite/tests/srfi-45.test b/test-suite/tests/srfi-45.test
index 573eea04a..e9fd029c9 100644
--- a/test-suite/tests/srfi-45.test
+++ b/test-suite/tests/srfi-45.test
@@ -1,6 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*-
-;; Copyright André van Tonder. All Rights Reserved.
+;; Copyright (C) 2010, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2003 André van Tonder. All Rights Reserved.
;;
;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation
@@ -258,3 +259,10 @@
;; Commented out since it takes too long
#;
(test-equal 300000000 (force (times3 100000000))) ;==> bounded space
+
+
+;======================================================================
+; Test promise? predicate (non-standard Guile extension)
+
+(pass-if "promise? predicate"
+ (promise? (delay 1)))