fix most of the tests to work.

1 files changed, 73 insertions, 100 deletions

diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index 5bdd207f9..f05feceb6 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -50,29 +50,27 @@
 ;;; ./gengen/gr_add_const_ss.h
 (pass-if (true? (gr:add-const-ss 0)))
 
-;;; ./gengen/gr_add_const_vcc.h FIXME: needs complex
+;;; ./gengen/gr_add_const_vcc.h FIXME: Wrong type argument in position ~A:
 ;; gr_make_add_const_vcc (const std::vector<gr_complex> &k);
-;; (pass-if (true? (gr:add-const-vcc 0)))
+;; (pass-if (true? (gr:add-const-vcc #(1+3i 23+5i))))
 
-;;; ./gengen/gr_add_const_vff.h FIXME: needs vector
-;; gr_make_add_const_vff (const std::vector<float> &k);
-;; (pass-if (true? (gr:add-const-vff )))
+;;; ./gengen/gr_add_const_vff.h
+(pass-if (true? (gr:add-const-vff #(1.0 2.0))))
 
-;;; ./gengen/gr_add_const_vii.h FIXME: needs vector
-;; gr_make_add_const_vii (const std::vector<int> &k);
-;; (pass-if (true? (gr:add-const-vii )))
+;;; ./gengen/gr_add_const_vii.h
+(pass-if (true? (gr:add-const-vii #(1 2))))
 
-;;; ./gengen/gr_add_const_vss.h FIXME: needs vector
-;; (pass-if (true? (gr:add-const-vss )))
+;;; ./gengen/gr_add_const_vss.h
+(pass-if (true? (gr:add-const-vss #(1 2))))
 
 ;;; ./gengen/gr_add_ff.h
-;; (pass-if (true? (gr:add-ff 0))) FIXME: throws gr_io_signature(3)
+(pass-if (true? (gr:add-ff 1)))
 
 ;;; ./gengen/gr_add_ii.h
-;; (pass-if (true? (gr:add-ii 0))) FIXME: throws gr_io_signature(3)
+(pass-if (true? (gr:add-ii 1)))
 
 ;;; ./gengen/gr_add_ss.h
-;; (pass-if (true? (gr:add-ss 0 ))) FIXME: throws gr_io_signature(3)
+(pass-if (true? (gr:add-ss 1)))
 
 ;;; ./gengen/gr_and_bb.h
 (pass-if (true? (gr:and-bb)))
@@ -101,27 +99,25 @@
 ;;; ./gengen/gr_argmax_ss.h
 (pass-if (true? (gr:argmax-ss 1)))
 
-;;; ./gengen/gr_chunks_to_symbols_bc.h FIXME: needs vector
-;; gr_make_chunks_to_symbols_bc (const std::vector<gr_complex> &symbol_table, const int D = 1);
-;; (pass-if (true? (gr:chunks-to-symbols-bc )))
+;;; ./gengen/gr_chunks_to_symbols_bc.h FIXME: not found
+;; (pass-if (true? (gr:chunks-to-symbols-bc #(1+3i 23+5i) 1)))
 
-;;; ./gengen/gr_chunks_to_symbols_bf.h FIXME: needs vector
-;; gr_make_chunks_to_symbols_bf (const std::vector<float> &symbol_table, const int D = 1);
-;; (pass-if (true? (gr:chunks-to-symbols-bf )))
+;;; ./gengen/gr_chunks_to_symbols_bf.h
+(pass-if (true? (gr:chunks-to-symbols-bf #(1.0 2.0) 1)))
 
-;;; ./gengen/gr_chunks_to_symbols_ic.h FIXME: needs vector
+;;; ./gengen/gr_chunks_to_symbols_ic.h FIXME: not found
 ;; gr_make_chunks_to_symbols_ic (const std::vector<gr_complex> &symbol_table, const int D = 1);
-;; (pass-if (true? (gr:chunks-to-symbols-ic )))
+;; (pass-if (true? (gr:chunks-to-symbols-ic #(1+3i 23+5i) 1)))
 
-;;; ./gengen/gr_chunks_to_symbols_if.h FIXME: needs vector
+;;; ./gengen/gr_chunks_to_symbols_if.h FIXME: not found
 ;; gr_make_chunks_to_symbols_if (const std::vector<float> &symbol_table, const int D = 1);
-;; (pass-if (true? (gr:chunks_to_symbols_if )))
+;; (pass-if (true? (gr:chunks_to_symbols_if #(1.0 2.0) 1)))
 
-;;; ./gengen/gr_chunks_to_symbols_sc.h FIXME: needs vector
-;; (pass-if (true? (gr:chunks_to_symbols_sc )))
+;;; ./gengen/gr_chunks_to_symbols_sc.h FIXME: not found
+;; (pass-if (true? (gr:chunks_to_symbols_sc #(1.0 2.0) 1)))
 
-;;; ./gengen/gr_chunks_to_symbols_sf.h FIXME: needs vector
-;; (pass-if (true? (gr:chunks_to_symbols_sf )))
+;;; ./gengen/gr_chunks_to_symbols_sf.h FIXME: not found
+;; (pass-if (true? (gr:chunks_to_symbols_sf #(1.0 2.0) 1)))
 
 ;;; ./gengen/gr_divide_cc.h
 (pass-if (true? (gr:divide-cc 1)))
@@ -156,9 +152,8 @@
 ;;; ./gengen/gr_max_ss.h
 (pass-if (true? (gr:max-ss 1)))
 
-;;; ./gengen/gr_moving_average_cc.h FIXME: needs gr_complex
-;; gr_make_moving_average_cc (int length, gr_complex scale, int max_iter=4096);
-;; (pass-if (true? (gr:moving-average-cc )))
+;;; ./gengen/gr_moving_average_cc.h
+(pass-if (true? (gr:moving-average-cc 1 1+3i 4096)))
 
 ;;; ./gengen/gr_moving_average_ff.h
 (pass-if (true? (gr:moving-average-ff 1 0 4096)))
@@ -184,21 +179,18 @@
 ;;; ./gengen/gr_multiply_const_ss.h
 (pass-if (true? (gr:multiply-const-ss 1)))
 
-;;; ./gengen/gr_multiply_const_vcc.h FIXME: needs vector
+;;; ./gengen/gr_multiply_const_vcc.h FIXME: wrong type argument in position ~A:
 ;; gr_make_multiply_const_vcc (const std::vector<gr_complex> &k);
-;; (pass-if (true? (gr:multiply-const-vcc 1)))
+;; (pass-if (true? (gr:multiply-const-vcc #(1+3i 23+5i))))
 
-;;; ./gengen/gr_multiply_const_vff.h FIXME: needs vector
-;; gr_make_multiply_const_vff (const std::vector<float> &k);
-;; (pass-if (true? (gr:multiply-const-vff )))
+;;; ./gengen/gr_multiply_const_vff.h
+(pass-if (true? (gr:multiply-const-vff #(1.0 2.0))))
 
-;;; ./gengen/gr_multiply_const_vii.h FIXME: needs vector
-;; gr_make_multiply_const_vii (const std::vector<int> &k);
-;; (pass-if (true? (gr:multiply-const-vii )))
+;;; ./gengen/gr_multiply_const_vii.h
+(pass-if (true? (gr:multiply-const-vii #(1 2))))
 
-;;; ./gengen/gr_multiply_const_vss.h FIXME: needs vector
-;; gr_make_multiply_const_vss (const std::vector<short> &k);
-;; (pass-if (true? (gr:multiply-const-vss )))
+;;; ./gengen/gr_multiply_const_vss.h
+(pass-if (true? (gr:multiply-const-vss #(1 2))))
 
 ;;; ./gengen/gr_multiply_ff.h
 (pass-if (true? (gr:multiply-ff 1)))
@@ -221,21 +213,17 @@
 ;;; ./gengen/gr_mute_ss.h FIXME: not found
 ;; (pass-if (true? (gr:mute-ss false)))
 
-;;; ./gengen/gr_noise_source_c.h FIXME: needs gr_noise_type_t
-;; gr_make_noise_source_c (gr_noise_type_t type, float ampl, long seed = 3021);
-;; (pass-if (true? (gr:noise-source-c )))
+;;; ./gengen/gr_noise_source_c.h
+(pass-if (true? (gr:noise-source-c 1 0 3021)))
 
-;;; ./gengen/gr_noise_source_f.h FIXME: needs gr_noise_type_t
-;; gr_make_noise_source_f (gr_noise_type_t type, float ampl, long seed = 3021);
-;; (pass-if (true? (gr:noise-source-f )))
+;;; ./gengen/gr_noise_source_f.h
+(pass-if (true? (gr:noise-source-f 1 0 3021)))
 
-;;; ./gengen/gr_noise_source_i.h FIXME: needs gr_noise_type_t
-;; gr_make_noise_source_i (gr_noise_type_t type, float ampl, long seed = 3021);
-;; (pass-if (true? (gr:noise-source-i )))
+;;; ./gengen/gr_noise_source_i.h
+(pass-if (true? (gr:noise-source-i 1 0 3021)))
 
-;;; ./gengen/gr_noise_source_s.h FIXME: needs gr_noise_type_t
-;; gr_make_noise_source_s (gr_noise_type_t type, float ampl, long seed = 3021);
-;; (pass-if (true? (gr:noise-source-s )))
+;;; ./gengen/gr_noise_source_s.h
+(pass-if (true? (gr:noise-source-s 1 0 3021)))
 
 ;;; ./gengen/gr_not_bb.h
 (pass-if (true? (gr:not-bb)))
@@ -255,26 +243,23 @@
 ;;; ./gengen/gr_or_ss.h
 (pass-if (true? (gr:or-ss)))
 
-;;; ./gengen/gr_packed_to_unpacked_bb.h FIXME: needs gr_endianness_t
-;; gr_make_packed_to_unpacked_bb (unsigned int bits_per_chunk, gr_endianness_t endianness);
-;; (pass-if (true? (gr:packed-to-unpacked-bb )))
+;;; ./gengen/gr_packed_to_unpacked_bb.h
+(pass-if (true? (gr:packed-to-unpacked-bb 1 1)))
 
-;;; ./gengen/gr_packed_to_unpacked_ii.h FIXME: needs gr_endianness_t
-;; gr_make_packed_to_unpacked_ii (unsigned int bits_per_chunk, gr_endianness_t endianness);
-;; (pass-if (true? (gr:packed-to-unpacked-ii )))
+;;; ./gengen/gr_packed_to_unpacked_ii.h
+(pass-if (true? (gr:packed-to-unpacked-ii 1 1)))
 
-;;; ./gengen/gr_packed_to_unpacked_ss.h FIXME: needs gr_endianness_t
-;; gr_make_packed_to_unpacked_ss (unsigned int bits_per_chunk, gr_endianness_t endianness);
-;; (pass-if (true? (gr:packed-to-unpacked-ss )))
+;;; ./gengen/gr_packed_to_unpacked_ss.h
+(pass-if (true? (gr:packed-to-unpacked-ss 1 1)))
 
 ;;; ./gengen/gr_peak_detector_fb.h
 (pass-if (true? (gr:peak-detector-fb 0.25 0.40 10 0.001)))
 
 ;;; ./gengen/gr_peak_detector_ib.h
-(pass-if (true? (gr:peak-detector-ib  0.25 0.40 10 0.001)))
+(pass-if (true? (gr:peak-detector-ib 0.25 0.40 10 0.001)))
 
 ;;; ./gengen/gr_peak_detector_sb.h
-(pass-if (true? (gr:peak-detector-sb  0.25 0.40 10 0.001)))
+(pass-if (true? (gr:peak-detector-sb 0.25 0.40 10 0.001)))
 
 ;;; ./gengen/gr_sample_and_hold_bb.h
 (pass-if (true? (gr:sample-and-hold-bb)))
@@ -288,25 +273,17 @@
 ;;; ./gengen/gr_sample_and_hold_ss.h
 (pass-if (true? (gr:sample-and-hold-ss)))
 
-;;; ./gengen/gr_sig_source_c.h FIXME: needs gr_waveform_t
-;; gr_make_sig_source_c (double sampling_freq, gr_waveform_t waveform,
-;;                      double wave_freq, double ampl, gr_complex offset = 0);
-;; (pass-if (true? (gr:sig-source-c )))
+;;; ./gengen/gr_sig_source_c.h
+(pass-if (true? (gr:sig-source-c 0 0 0 0 0)))
 
-;;; ./gengen/gr_sig_source_f.h FIXME: needs gr_waveform_t
-;; gr_make_sig_source_f (double sampling_freq, gr_waveform_t waveform,
-;;                      double wave_freq, double ampl, float offset = 0);
-;; (pass-if (true? (gr:sig-source-f )))
+;;; ./gengen/gr_sig_source_f.h
+(pass-if (true? (gr:sig-source-f 0 0 0 0 0)))
 
-;;; ./gengen/gr_sig_source_i.h FIXME: needs gr_waveform_t
-;; gr_make_sig_source_i (double sampling_freq, gr_waveform_t waveform,
-;;                      double wave_freq, double ampl, int offset = 0);
-;; (pass-if (true? (gr:sig-source-i )))
+;;; ./gengen/gr_sig_source_i.h
+(pass-if (true? (gr:sig-source-i 0 0 0 0 0)))
 
-;;; ./gengen/gr_sig_source_s.h FIXME: needs gr_waveform_t
-;; gr_make_sig_source_s (double sampling_freq, gr_waveform_t waveform,
-;;                      double wave_freq, double ampl, short offset = 0);
-;; (pass-if (true? (gr:sig-source-s )))
+;;; ./gengen/gr_sig_source_s.h
+(pass-if (true? (gr:sig-source-s 0 0 0 0 0)))
 
 ;;; ./gengen/gr_sub_cc.h
 (pass-if (true? (gr:sub-cc 1)))
@@ -320,17 +297,14 @@
 ;;; ./gengen/gr_sub_ss.h
 (pass-if (true? (gr:sub-ss 1)))
 
-;;; ./gengen/gr_unpacked_to_packed_bb.h FIXME: needs gr_endianness_t
-;; gr_make_unpacked_to_packed_bb (unsigned int bits_per_chunk, gr_endianness_t endianness);
-;; (pass-if (true? (gr:unpacked-to-packed-bb )))
+;;; ./gengen/gr_unpacked_to_packed_bb.h
+(pass-if (true? (gr:unpacked-to-packed-bb 1 1)))
 
-;;; ./gengen/gr_unpacked_to_packed_ii.h FIXME: needs gr_endianness_t
-;; gr_make_unpacked_to_packed_ii (unsigned int bits_per_chunk, gr_endianness_t endianness);
-;; (pass-if (true? (gr:unpacked-to-packed-ii )))
+;;; ./gengen/gr_unpacked_to_packed_ii.h
+(pass-if (true? (gr:unpacked-to-packed-ii 1 1)))
 
-;;; ./gengen/gr_unpacked_to_packed_ss.h FIXME: needs gr_endianness_t
-;; gr_make_unpacked_to_packed_ss (unsigned int bits_per_chunk, gr_endianness_t endianness);
-;; (pass-if (true? (gr:unpacked-to-packed-ss )))
+;;; ./gengen/gr_unpacked_to_packed_ss.h
+(pass-if (true? (gr:unpacked-to-packed-ss 1 1)))
 
 ;;; ./gengen/gr_vector_sink_b.h
 (pass-if (true? (gr:vector-sink-b 1)))
@@ -347,24 +321,23 @@
 ;;; ./gengen/gr_vector_sink_s.h
 (pass-if (true? (gr:vector-sink-s 1)))
 
-;;; ./gengen/gr_vector_source_b.h FIXME: needs vector, may throw
-;; gr_make_vector_source_b (const std::vector<unsigned char> &data, bool repeat = false, int vlen = 1)
-;; (pass-if (true? (gr:vector-source-b )))
+;;; ./gengen/gr_vector_source_b.h FIXME: not found
+;; (pass-if (true? (gr:vector-source-b #(1 2) false 1)))
 
-;;; ./gengen/gr_vector_source_c.h FIXME: needs vector, may throw
+;;; ./gengen/gr_vector_source_c.h FIXME: not found
 ;; gr_make_vector_source_c (const std::vector<gr_complex> &data, bool repeat = false, int vlen = 1)
-;; (pass-if (true? (gr:vector-source-c )))
+;; (pass-if (true? (gr:vector-source-c #(1+3i 23+5i) false 1)))
 
-;;; ./gengen/gr_vector_source_f.h FIXME: needs vector, may throw
+;;; ./gengen/gr_vector_source_f.h FIXME: not found
 ;; gr_make_vector_source_f (const std::vector<float> &data, bool repeat = false, int vlen = 1)
-;; (pass-if (true? (gr:vector-source-f )))
+;; (pass-if (true? (gr:vector-source-f #(1.0 2.0) false 1)))
 
-;;; ./gengen/gr_vector_source_i.h FIXME: needs vector, may throw
+;;; ./gengen/gr_vector_source_i.h FIXME: not found
 ;; gr_make_vector_source_i (const std::vector<int> &data, bool repeat = false, int vlen = 1)
-;; (pass-if (true? (gr:vector-source-i )))
+;; (pass-if (true? (gr:vector-source-i #(1 2) false 1)))
 
-;;; ./gengen/gr_vector_source_s.h FIXME: needs vector, may throw
-;; (pass-if (true? (gr:vector-source-s )))
+;;; ./gengen/gr_vector_source_s.h FIXME: not found
+;; (pass-if (true? (gr:vector-source-s #(1 2) false 1)))
 
 ;;; ./gengen/gr_xor_bb.h
 (pass-if (true? (gr:xor-bb)))