Fix guile related problems with gr_message_{sink,source}.

1 files changed, 14 insertions, 9 deletions

diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index b74d66cda..99c84ae37 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -29,6 +29,10 @@
 (use-modules (gnuradio core))
 (use-modules (oop goops))
 
+
+(define (rm-foo)
+  (false-if-exception (delete-file "foo")))
+
 ;;; Add test code for all constructors in these files
 ;;;
 
@@ -36,23 +40,24 @@
 (pass-if (true? (gr:file-descriptor-sink 1 1)))
 
 ;;; ./io/gr_file_descriptor_source.h  FIXME: not found
-;; (pass-if (true? (gr:file-descriptor-source 1 1 false)))
+;; (pass-if (true? (gr:file-descriptor-source 1 1 #f)))
 
 ;;; ./io/gr_file_sink.h
 (pass-if (true? (gr:file-sink 1 "foo")))
 
 ;;; ./io/gr_file_source.h FIXME: not found
-;; (pass-if (true? (gr:file-source 1 "foo" false)))
+;; (pass-if (true? (gr:file-source 1 "foo" #f)))
 
 ;;; ./io/gr_histo_sink_f.h FIXME: not found
 ;; gr_make_histo_sink_f (gr_msg_queue_sptr msgq);
 ;; (pass-if (true? (gr:histo-sink-f 1)))
 
-;;; ./io/gr_message_sink.h FIXME: not found
-;; (pass-if (true? (gr:message-sink 1 1 false)))
+;;; ./io/gr_message_sink.h
+(pass-if (true? (gr:message-sink 1 (gr:msg-queue) #f)))
 
-;;; ./io/gr_message_source.h FIXME: not found
-;; (pass-if (true? (gr:message-source 1.0 0)))
+;;; ./io/gr_message_source.h
+(pass-if (true? (gr:message-source 1 1)))
+(pass-if (true? (gr:message-source 1 (gr:msg-queue))))
 
 ;;; ./io/gr_oscope_sink_f.h FIXME: not found
 ;; _oscope_sink_x (const std::string name, gr_io_signature_sptr input_sig,
@@ -65,14 +70,14 @@
 ;; (pass-if (true? (gr:oscope_sink_x "foo" 1 1)))
 
 ;;; ./io/gr_udp_sink.h FIXME: not found
-;; (pass-if (true? (gr:udp-sink 1 "foo" 1472 true)))
+;; (pass-if (true? (gr:udp-sink 1 "foo" 1472 #t)))
 
 ;;; ./io/gr_udp_source.h FIXME: not found
-;; (pass-if (true? (gr:message-source 0 "foo" 0 1472 true true)))
+;; (pass-if (true? (gr:message-source 0 "foo" 0 1472 #t #t)))
 
 ;;; ./io/gr_wavfile_sink.h FIXME: not found
 ;; (pass-if (true? (gr:message-source "foo" 1 1 1)))
 
 ;;; ./io/gr_wavfile_source.h FIXME: not found
-;; (pass-if (true? (gr:message-source "foo" false)))
+;; (pass-if (true? (gr:message-source "foo" #f)))