From 72739e8fde9353e502edc937bd6f9f77f6b80cc6 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 7 Nov 2010 16:42:07 -0800
Subject: Move *.test to tests directory

---
 .../src/guile/tests/00_runtime_basics.test         | 124 +++++++++++++++++
 .../src/guile/tests/00_runtime_ctors.test          |  32 +++++
 gnuradio-core/src/guile/tests/filter_ctors.test    |  95 ++++++++++++++
 gnuradio-core/src/guile/tests/general_ctors.test   | 146 +++++++++++++++++++++
 gnuradio-core/src/guile/tests/gengen_ctors.test    | 132 +++++++++++++++++++
 gnuradio-core/src/guile/tests/hier_ctors.test      |  30 +++++
 gnuradio-core/src/guile/tests/io_ctors.test        |  42 ++++++
 7 files changed, 601 insertions(+)
 create mode 100644 gnuradio-core/src/guile/tests/00_runtime_basics.test
 create mode 100644 gnuradio-core/src/guile/tests/00_runtime_ctors.test
 create mode 100644 gnuradio-core/src/guile/tests/filter_ctors.test
 create mode 100644 gnuradio-core/src/guile/tests/general_ctors.test
 create mode 100644 gnuradio-core/src/guile/tests/gengen_ctors.test
 create mode 100644 gnuradio-core/src/guile/tests/hier_ctors.test
 create mode 100644 gnuradio-core/src/guile/tests/io_ctors.test

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
new file mode 100644
index 000000000..c9d251268
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -0,0 +1,124 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+(define (vector-map f v)
+  (list->vector (map f (vector->list v))))
+
+
+(with-test-prefix "test-connect-1"
+ (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
+	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
+	 (tb (gr:top-block-swig "QA top block"))
+	 (src (gr:vector-source-i src-data #f))
+	 (op (gr:multiply-const-ii 2))
+	 (dst (gr:vector-sink-i)))
+
+    ;; using gr:ep to create endpoints
+    (gr:connect tb (gr:ep src 0) (gr:ep op 0))
+    (gr:connect tb (gr:ep op 0) (gr:ep dst 0))
+
+    (gr:run tb)
+    ;;(pass-if (equal? expected-result (gr:data dst)))
+    (test-equal expected-result (gr:data dst))
+    ))
+
+(with-test-prefix "test-connect-2"
+  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
+	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
+	 (tb (gr:top-block-swig "QA top block"))
+	 (src (gr:vector-source-i src-data #f))
+	 (op (gr:multiply-const-ii 2))
+	 (dst (gr:vector-sink-i)))
+
+    ;; using just blocks
+    (gr:connect tb src op)
+    (gr:connect tb op dst)
+
+    (gr:run tb)
+    (test-equal expected-result (gr:data dst))))
+
+
+(with-test-prefix "test-connect-3"
+  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
+	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
+	 (tb (gr:top-block-swig "QA top block"))
+	 (src (gr:vector-source-i src-data #f))
+	 (op (gr:multiply-const-ii 2))
+	 (dst (gr:vector-sink-i)))
+
+    ;; using lists to represent endpoints
+    (gr:connect tb `(,src 0) `(,op 0))
+    (gr:connect tb `(,op 0) `(,dst 0))
+
+    (gr:run tb)
+    (test-equal expected-result (gr:data dst))))
+
+
+(with-test-prefix "test-connect-4"
+  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
+	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
+	 (tb (gr:top-block-swig "QA top block"))
+	 (src (gr:vector-source-i src-data #f))
+	 (op (gr:multiply-const-ii 2))
+	 (dst (gr:vector-sink-i)))
+
+    ;; using multiple endpoints
+    (gr:connect tb src op dst)
+
+    (gr:run tb)
+    (test-equal expected-result (gr:data dst))))
+
+
+(with-test-prefix "test-io-signature-1"
+  (let ((ios1 (gr:io-signature 1 2 8))
+	(ios2 (gr:io-signature2 1 2 16 32))
+	(ios3 (gr:io-signature3 1 -1 14 32 48))
+	(iosv (gr:io-signaturev 1 4 '(1 2 3))))
+
+    (test-equal 1 (gr:min-streams ios1))
+    (test-equal 2 (gr:max-streams ios1))
+    (test-equal 8 (gr:sizeof-stream-item ios1 0))
+    (test-equal 8 (gr:sizeof-stream-item ios1 1))
+
+    (test-equal 1 (gr:min-streams ios2))
+    (test-equal 2 (gr:max-streams ios2))
+    (test-equal 16 (gr:sizeof-stream-item ios2 0))
+    (test-equal 32 (gr:sizeof-stream-item ios2 1))
+
+    (test-equal 1 (gr:min-streams ios3))
+    (test-equal -1 (gr:max-streams ios3))
+    (test-equal 14 (gr:sizeof-stream-item ios3 0))
+    (test-equal 32 (gr:sizeof-stream-item ios3 1))
+    (test-equal 48 (gr:sizeof-stream-item ios3 2))
+    (test-equal '#(14 32 48) (gr:sizeof-stream-items ios3))
+
+    (test-equal 1 (gr:min-streams iosv))
+    (test-equal 4 (gr:max-streams iosv))
+    (test-equal 1 (gr:sizeof-stream-item iosv 0))
+    (test-equal 2 (gr:sizeof-stream-item iosv 1))
+    (test-equal 3 (gr:sizeof-stream-item iosv 2))
+    (test-equal 3 (gr:sizeof-stream-item iosv 3))
+    (test-equal '#(1 2 3) (gr:sizeof-stream-items iosv))
+    ))
+
diff --git a/gnuradio-core/src/guile/tests/00_runtime_ctors.test b/gnuradio-core/src/guile/tests/00_runtime_ctors.test
new file mode 100644
index 000000000..e0a946ab9
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/00_runtime_ctors.test
@@ -0,0 +1,32 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+
+;;; Add test code for all constructors in these files
+;;;
+;;; ./runtime/gr_hier_block2.h
+;;; ./runtime/gr_msg_queue.h
diff --git a/gnuradio-core/src/guile/tests/filter_ctors.test b/gnuradio-core/src/guile/tests/filter_ctors.test
new file mode 100644
index 000000000..040b8ba10
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/filter_ctors.test
@@ -0,0 +1,95 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+;;; Add test code for all constructors in these files
+;;;
+;;; ./filter/gr_adaptive_fir_ccf.h
+;;; ./filter/gr_cma_equalizer_cc.h
+;;; ./filter/gr_fft_filter_ccc.h
+;;; ./filter/gr_fft_filter_fff.h
+;;; ./filter/gr_filter_delay_fc.h
+;;; ./filter/gr_fir_ccc_generic.h
+;;; ./filter/gr_fir_ccc_simd.h
+;;; ./filter/gr_fir_ccc_x86.h
+;;; ./filter/gr_fir_ccf_generic.h
+;;; ./filter/gr_fir_ccf_simd.h
+;;; ./filter/gr_fir_ccf_x86.h
+;;; ./filter/gr_fir_fcc_generic.h
+;;; ./filter/gr_fir_fcc_simd.h
+;;; ./filter/gr_fir_fcc_x86.h
+;;; ./filter/gr_fir_fff_altivec.h
+;;; ./filter/gr_fir_fff_armv7_a.h
+;;; ./filter/gr_fir_fff_generic.h
+;;; ./filter/gr_fir_fff_simd.h
+;;; ./filter/gr_fir_fff_x86.h
+;;; ./filter/gr_fir_filter_ccc.h
+;;; ./filter/gr_fir_filter_ccf.h
+;;; ./filter/gr_fir_filter_fcc.h
+;;; ./filter/gr_fir_filter_fff.h
+;;; ./filter/gr_fir_filter_fsf.h
+;;; ./filter/gr_fir_filter_scc.h
+;;; ./filter/gr_fir_fsf_generic.h
+;;; ./filter/gr_fir_fsf_simd.h
+;;; ./filter/gr_fir_fsf_x86.h
+;;; ./filter/gr_fir_scc_generic.h
+;;; ./filter/gr_fir_scc_simd.h
+;;; ./filter/gr_fir_scc_x86.h
+;;; ./filter/gr_fir_sysconfig_armv7_a.h
+;;; ./filter/gr_fir_sysconfig_generic.h
+;;; ./filter/gr_fir_sysconfig_powerpc.h
+;;; ./filter/gr_fir_sysconfig_x86.h
+;;; ./filter/gr_fractional_interpolator_cc.h
+;;; ./filter/gr_fractional_interpolator_ff.h
+;;; ./filter/gr_freq_xlating_fir_filter_ccc.h
+;;; ./filter/gr_freq_xlating_fir_filter_ccf.h
+;;; ./filter/gr_freq_xlating_fir_filter_fcc.h
+;;; ./filter/gr_freq_xlating_fir_filter_fcf.h
+;;; ./filter/gr_freq_xlating_fir_filter_scc.h
+;;; ./filter/gr_freq_xlating_fir_filter_scf.h
+;;; ./filter/gr_goertzel_fc.h
+;;; ./filter/gr_hilbert_fc.h
+;;; ./filter/gr_iir_filter_ffd.h
+;;; ./filter/gr_interp_fir_filter_ccc.h
+;;; ./filter/gr_interp_fir_filter_ccf.h
+;;; ./filter/gr_interp_fir_filter_fcc.h
+;;; ./filter/gr_interp_fir_filter_fff.h
+;;; ./filter/gr_interp_fir_filter_fsf.h
+;;; ./filter/gr_interp_fir_filter_scc.h
+;;; ./filter/gr_pfb_arb_resampler_ccf.h
+;;; ./filter/gr_pfb_channelizer_ccf.h
+;;; ./filter/gr_pfb_clock_sync_ccf.h
+;;; ./filter/gr_pfb_clock_sync_fff.h
+;;; ./filter/gr_pfb_decimator_ccf.h
+;;; ./filter/gr_pfb_interpolator_ccf.h
+;;; ./filter/gr_rational_resampler_base_ccc.h
+;;; ./filter/gr_rational_resampler_base_ccf.h
+;;; ./filter/gr_rational_resampler_base_fcc.h
+;;; ./filter/gr_rational_resampler_base_fff.h
+;;; ./filter/gr_rational_resampler_base_fsf.h
+;;; ./filter/gr_rational_resampler_base_scc.h
+;;; ./filter/gr_single_pole_iir_filter_cc.h
+;;; ./filter/gr_single_pole_iir_filter_ff.h
diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
new file mode 100644
index 000000000..8d272f768
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -0,0 +1,146 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+;;; Add test code for all constructors in these files
+;;;
+;;; ./general/gr_additive_scrambler_bb.h
+;;; ./general/gr_agc2_cc.h
+;;; ./general/gr_agc2_ff.h
+;;; ./general/gr_agc_cc.h
+;;; ./general/gr_agc_ff.h
+;;; ./general/gr_align_on_samplenumbers_ss.h
+;;; ./general/gr_bin_statistics_f.h
+;;; ./general/gr_binary_slicer_fb.h
+;;; ./general/gr_bytes_to_syms.h
+;;; ./general/gr_char_to_float.h
+;;; ./general/gr_check_counting_s.h
+;;; ./general/gr_check_lfsr_32k_s.h
+;;; ./general/gr_clock_recovery_mm_cc.h
+;;; ./general/gr_clock_recovery_mm_ff.h
+;;; ./general/gr_complex_to_interleaved_short.h
+;;; ./general/gr_complex_to_xxx.h
+;;; ./general/gr_conjugate_cc.h
+;;; ./general/gr_constellation_decoder_cb.h
+;;; ./general/gr_copy.h
+;;; ./general/gr_correlate_access_code_bb.h
+;;; ./general/gr_costas_loop_cc.h
+;;; ./general/gr_cpfsk_bc.h
+;;; ./general/gr_ctcss_squelch_ff.h
+;;; ./general/gr_decode_ccsds_27_fb.h
+;;; ./general/gr_deinterleave.h
+;;; ./general/gr_delay.h
+;;; ./general/gr_descrambler_bb.h
+;;; ./general/gr_diff_decoder_bb.h
+;;; ./general/gr_diff_encoder_bb.h
+;;; ./general/gr_diff_phasor_cc.h
+;;; ./general/gr_dpll_bb.h
+;;; ./general/gr_encode_ccsds_27_bb.h
+;;; ./general/gr_fake_channel_coder_pp.h
+;;; ./general/gr_feedforward_agc_cc.h
+;;; ./general/gr_fft_vcc.h
+;;; ./general/gr_fft_vcc_fftw.h
+;;; ./general/gr_fft_vfc.h
+;;; ./general/gr_fll_band_edge_cc.h
+;;; ./general/gr_float_to_char.h
+;;; ./general/gr_float_to_complex.h
+;;; ./general/gr_float_to_short.h
+;;; ./general/gr_float_to_uchar.h
+;;; ./general/gr_fmdet_cf.h
+;;; ./general/gr_framer_sink_1.h
+;;; ./general/gr_frequency_modulator_fc.h
+;;; ./general/gr_glfsr_source_b.h
+;;; ./general/gr_glfsr_source_f.h
+;;; ./general/gr_head.h
+;;; ./general/gr_interleave.h
+;;; ./general/gr_interleaved_short_to_complex.h
+;;; ./general/gr_iqcomp_cc.h
+;;; ./general/gr_keep_one_in_n.h
+;;; ./general/gr_kludge_copy.h
+;;; ./general/gr_lfsr_32k_source_s.h
+;;; ./general/gr_lms_dfe_cc.h
+;;; ./general/gr_lms_dfe_ff.h
+;;; ./general/gr_map_bb.h
+;;; ./general/gr_mpsk_receiver_cc.h
+;;; ./general/gr_nlog10_ff.h
+;;; ./general/gr_nop.h
+;;; ./general/gr_null_sink.h
+;;; ./general/gr_null_source.h
+;;; ./general/gr_ofdm_bpsk_demapper.h
+;;; ./general/gr_ofdm_cyclic_prefixer.h
+;;; ./general/gr_ofdm_demapper_vcb.h
+;;; ./general/gr_ofdm_frame_acquisition.h
+;;; ./general/gr_ofdm_frame_sink.h
+;;; ./general/gr_ofdm_insert_preamble.h
+;;; ./general/gr_ofdm_mapper_bcv.h
+;;; ./general/gr_ofdm_sampler.h
+;;; ./general/gr_pa_2x2_phase_combiner.h
+;;; ./general/gr_packet_sink.h
+;;; ./general/gr_peak_detector2_fb.h
+;;; ./general/gr_phase_modulator_fc.h
+;;; ./general/gr_pll_carriertracking_cc.h
+;;; ./general/gr_pll_freqdet_cf.h
+;;; ./general/gr_pll_refout_cc.h
+;;; ./general/gr_pn_correlator_cc.h
+;;; ./general/gr_probe_avg_mag_sqrd_c.h
+;;; ./general/gr_probe_avg_mag_sqrd_cf.h
+;;; ./general/gr_probe_avg_mag_sqrd_f.h
+;;; ./general/gr_probe_density_b.h
+;;; ./general/gr_probe_mpsk_snr_c.h
+;;; ./general/gr_probe_signal_f.h
+;;; ./general/gr_pwr_squelch_cc.h
+;;; ./general/gr_pwr_squelch_ff.h
+;;; ./general/gr_quadrature_demod_cf.h
+;;; ./general/gr_rail_ff.h
+;;; ./general/gr_regenerate_bb.h
+;;; ./general/gr_repeat.h
+;;; ./general/gr_rms_cf.h
+;;; ./general/gr_rms_ff.h
+;;; ./general/gr_scrambler_bb.h
+;;; ./general/gr_short_to_float.h
+;;; ./general/gr_simple_correlator.h
+;;; ./general/gr_simple_framer.h
+;;; ./general/gr_simple_squelch_cc.h
+;;; ./general/gr_skiphead.h
+;;; ./general/gr_squash_ff.h
+;;; ./general/gr_squelch_base_cc.h
+;;; ./general/gr_squelch_base_ff.h
+;;; ./general/gr_stream_mux.h
+;;; ./general/gr_stream_to_streams.h
+;;; ./general/gr_stream_to_vector.h
+;;; ./general/gr_streams_to_stream.h
+;;; ./general/gr_streams_to_vector.h
+;;; ./general/gr_stretch_ff.h
+;;; ./general/gr_test.h
+;;; ./general/gr_threshold_ff.h
+;;; ./general/gr_throttle.h
+;;; ./general/gr_uchar_to_float.h
+;;; ./general/gr_unpack_k_bits_bb.h
+;;; ./general/gr_vco_f.h
+;;; ./general/gr_vector_to_stream.h
+;;; ./general/gr_vector_to_streams.h
+;;; ./general/gr_wavelet_ff.h
+;;; ./general/gr_wvps_ff.h
diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
new file mode 100644
index 000000000..652556d3f
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -0,0 +1,132 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+;;; Add test code for all constructors in these files
+;;;
+;;; ./gengen/gr_add_cc.h
+;;; ./gengen/gr_add_const_cc.h
+;;; ./gengen/gr_add_const_ff.h
+;;; ./gengen/gr_add_const_ii.h
+;;; ./gengen/gr_add_const_sf.h
+;;; ./gengen/gr_add_const_ss.h
+;;; ./gengen/gr_add_const_vcc.h
+;;; ./gengen/gr_add_const_vff.h
+;;; ./gengen/gr_add_const_vii.h
+;;; ./gengen/gr_add_const_vss.h
+;;; ./gengen/gr_add_ff.h
+;;; ./gengen/gr_add_ii.h
+;;; ./gengen/gr_add_ss.h
+;;; ./gengen/gr_and_bb.h
+;;; ./gengen/gr_and_const_bb.h
+;;; ./gengen/gr_and_const_ii.h
+;;; ./gengen/gr_and_const_ss.h
+;;; ./gengen/gr_and_ii.h
+;;; ./gengen/gr_and_ss.h
+;;; ./gengen/gr_argmax_fs.h
+;;; ./gengen/gr_argmax_is.h
+;;; ./gengen/gr_argmax_ss.h
+;;; ./gengen/gr_chunks_to_symbols_bc.h
+;;; ./gengen/gr_chunks_to_symbols_bf.h
+;;; ./gengen/gr_chunks_to_symbols_ic.h
+;;; ./gengen/gr_chunks_to_symbols_if.h
+;;; ./gengen/gr_chunks_to_symbols_sc.h
+;;; ./gengen/gr_chunks_to_symbols_sf.h
+;;; ./gengen/gr_divide_cc.h
+;;; ./gengen/gr_divide_ff.h
+;;; ./gengen/gr_divide_ii.h
+;;; ./gengen/gr_divide_ss.h
+;;; ./gengen/gr_integrate_cc.h
+;;; ./gengen/gr_integrate_ff.h
+;;; ./gengen/gr_integrate_ii.h
+;;; ./gengen/gr_integrate_ss.h
+;;; ./gengen/gr_max_ff.h
+;;; ./gengen/gr_max_ii.h
+;;; ./gengen/gr_max_ss.h
+;;; ./gengen/gr_moving_average_cc.h
+;;; ./gengen/gr_moving_average_ff.h
+;;; ./gengen/gr_moving_average_ii.h
+;;; ./gengen/gr_moving_average_ss.h
+;;; ./gengen/gr_multiply_cc.h
+;;; ./gengen/gr_multiply_const_cc.h
+;;; ./gengen/gr_multiply_const_ff.h
+;;; ./gengen/gr_multiply_const_ii.h
+;;; ./gengen/gr_multiply_const_ss.h
+;;; ./gengen/gr_multiply_const_vcc.h
+;;; ./gengen/gr_multiply_const_vff.h
+;;; ./gengen/gr_multiply_const_vii.h
+;;; ./gengen/gr_multiply_const_vss.h
+;;; ./gengen/gr_multiply_ff.h
+;;; ./gengen/gr_multiply_ii.h
+;;; ./gengen/gr_multiply_ss.h
+;;; ./gengen/gr_mute_cc.h
+;;; ./gengen/gr_mute_ff.h
+;;; ./gengen/gr_mute_ii.h
+;;; ./gengen/gr_mute_ss.h
+;;; ./gengen/gr_noise_source_c.h
+;;; ./gengen/gr_noise_source_f.h
+;;; ./gengen/gr_noise_source_i.h
+;;; ./gengen/gr_noise_source_s.h
+;;; ./gengen/gr_not_bb.h
+;;; ./gengen/gr_not_ii.h
+;;; ./gengen/gr_not_ss.h
+;;; ./gengen/gr_or_bb.h
+;;; ./gengen/gr_or_ii.h
+;;; ./gengen/gr_or_ss.h
+;;; ./gengen/gr_packed_to_unpacked_bb.h
+;;; ./gengen/gr_packed_to_unpacked_ii.h
+;;; ./gengen/gr_packed_to_unpacked_ss.h
+;;; ./gengen/gr_peak_detector_fb.h
+;;; ./gengen/gr_peak_detector_ib.h
+;;; ./gengen/gr_peak_detector_sb.h
+;;; ./gengen/gr_sample_and_hold_bb.h
+;;; ./gengen/gr_sample_and_hold_ff.h
+;;; ./gengen/gr_sample_and_hold_ii.h
+;;; ./gengen/gr_sample_and_hold_ss.h
+;;; ./gengen/gr_sig_source_c.h
+;;; ./gengen/gr_sig_source_f.h
+;;; ./gengen/gr_sig_source_i.h
+;;; ./gengen/gr_sig_source_s.h
+;;; ./gengen/gr_sub_cc.h
+;;; ./gengen/gr_sub_ff.h
+;;; ./gengen/gr_sub_ii.h
+;;; ./gengen/gr_sub_ss.h
+;;; ./gengen/gr_unpacked_to_packed_bb.h
+;;; ./gengen/gr_unpacked_to_packed_ii.h
+;;; ./gengen/gr_unpacked_to_packed_ss.h
+;;; ./gengen/gr_vector_sink_b.h
+;;; ./gengen/gr_vector_sink_c.h
+;;; ./gengen/gr_vector_sink_f.h
+;;; ./gengen/gr_vector_sink_i.h
+;;; ./gengen/gr_vector_sink_s.h
+;;; ./gengen/gr_vector_source_b.h
+;;; ./gengen/gr_vector_source_c.h
+;;; ./gengen/gr_vector_source_f.h
+;;; ./gengen/gr_vector_source_i.h
+;;; ./gengen/gr_vector_source_s.h
+;;; ./gengen/gr_xor_bb.h
+;;; ./gengen/gr_xor_ii.h
+;;; ./gengen/gr_xor_ss.h
diff --git a/gnuradio-core/src/guile/tests/hier_ctors.test b/gnuradio-core/src/guile/tests/hier_ctors.test
new file mode 100644
index 000000000..c297fb9dd
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/hier_ctors.test
@@ -0,0 +1,30 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+;;; Add test code for all constructors in these files
+;;;
+;;; ./hier/gr_channel_model.h
diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
new file mode 100644
index 000000000..2001e5fa5
--- /dev/null
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -0,0 +1,42 @@
+;;; -*- Scheme -*-
+;;;
+;;; Copyright 2010 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Radio
+;;;
+;;; GNU Radio is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Radio is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;
+
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+(use-modules (gnuradio test-suite lib))
+(use-modules (gnuradio core))
+(use-modules (oop goops))
+
+;;; Add test code for all constructors in these files
+;;;
+;;; ./io/gr_file_descriptor_sink.h
+;;; ./io/gr_file_descriptor_source.h
+;;; ./io/gr_file_sink.h
+;;; ./io/gr_file_source.h
+;;; ./io/gr_histo_sink_f.h
+;;; ./io/gr_message_sink.h
+;;; ./io/gr_message_source.h
+;;; ./io/gr_oscope_sink_f.h
+;;; ./io/gr_oscope_sink_x.h
+;;; ./io/gr_udp_sink.h
+;;; ./io/gr_udp_source.h
+;;; ./io/gr_wavfile_sink.h
+;;; ./io/gr_wavfile_source.h
-- 
cgit 


From 4645f4105f480f6643f3749013c4eabc3f831124 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 7 Nov 2010 18:31:01 -0800
Subject: Add comments pointing to info on how to write test cases.

---
 gnuradio-core/src/guile/tests/00_runtime_basics.test | 7 +++++++
 gnuradio-core/src/guile/tests/00_runtime_ctors.test  | 5 ++++-
 gnuradio-core/src/guile/tests/filter_ctors.test      | 4 ++++
 gnuradio-core/src/guile/tests/general_ctors.test     | 4 ++++
 gnuradio-core/src/guile/tests/gengen_ctors.test      | 4 ++++
 gnuradio-core/src/guile/tests/hier_ctors.test        | 4 ++++
 gnuradio-core/src/guile/tests/io_ctors.test          | 4 ++++
 7 files changed, 31 insertions(+), 1 deletion(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
index c9d251268..90949c8f8 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_basics.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -18,6 +18,13 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;
 
+;;; If you're using Emacs's Scheme mode:
+;;;   (put 'with-test-prefix 'scheme-indent-function 1)
+
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file, where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
diff --git a/gnuradio-core/src/guile/tests/00_runtime_ctors.test b/gnuradio-core/src/guile/tests/00_runtime_ctors.test
index e0a946ab9..0c131f5bd 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_ctors.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_ctors.test
@@ -21,11 +21,14 @@
 ;;; If you're using Emacs's Scheme mode:
 ;;;   (put 'with-test-prefix 'scheme-indent-function 1)
 
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
 
-
 ;;; Add test code for all constructors in these files
 ;;;
 ;;; ./runtime/gr_hier_block2.h
diff --git a/gnuradio-core/src/guile/tests/filter_ctors.test b/gnuradio-core/src/guile/tests/filter_ctors.test
index 040b8ba10..9ff251a55 100644
--- a/gnuradio-core/src/guile/tests/filter_ctors.test
+++ b/gnuradio-core/src/guile/tests/filter_ctors.test
@@ -21,6 +21,10 @@
 ;;; If you're using Emacs's Scheme mode:
 ;;;   (put 'with-test-prefix 'scheme-indent-function 1)
 
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file, where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 8d272f768..ef2a3e729 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -21,6 +21,10 @@
 ;;; If you're using Emacs's Scheme mode:
 ;;;   (put 'with-test-prefix 'scheme-indent-function 1)
 
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file, where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index 652556d3f..de4ecb35e 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -21,6 +21,10 @@
 ;;; If you're using Emacs's Scheme mode:
 ;;;   (put 'with-test-prefix 'scheme-indent-function 1)
 
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file, where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
diff --git a/gnuradio-core/src/guile/tests/hier_ctors.test b/gnuradio-core/src/guile/tests/hier_ctors.test
index c297fb9dd..48d2bfa2d 100644
--- a/gnuradio-core/src/guile/tests/hier_ctors.test
+++ b/gnuradio-core/src/guile/tests/hier_ctors.test
@@ -21,6 +21,10 @@
 ;;; If you're using Emacs's Scheme mode:
 ;;;   (put 'with-test-prefix 'scheme-indent-function 1)
 
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file, where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index 2001e5fa5..8bb0bc34f 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -21,6 +21,10 @@
 ;;; If you're using Emacs's Scheme mode:
 ;;;   (put 'with-test-prefix 'scheme-indent-function 1)
 
+;;; See the comments in gnuradio/test-suite/lib.scm for info on writing tests.
+;;; See also the very end of the file, where the test-equal, test-eqv
+;;; and test-eq macros are defined.
+
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
-- 
cgit 


From 66d6c1b983e48f426b1169be3302407d5116d752 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 7 Nov 2010 23:13:09 -0800
Subject: Add not-yet-working test that should confirm exception raised

---
 gnuradio-core/src/guile/tests/00_runtime_basics.test | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
index 90949c8f8..989ae423c 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_basics.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -96,6 +96,24 @@
     (gr:run tb)
     (test-equal expected-result (gr:data dst))))
 
+#!
+;;; FIXME pass-if-exception is broken if the underlying code throws
+;;; (like ours does).  Need to write our own test utility for
+;;; exceptions.
+(with-test-prefix "test-connect-5"
+  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
+	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
+	 (tb (gr:top-block-swig "QA top block"))
+	 (src (gr:vector-source-i src-data #f))
+	 (op (gr:multiply-const-ii 2))
+	 (dst (gr:vector-sink-i)))
+
+    ;; FIXME This isn't working...
+    (pass-if-exception "bad port" exception:swig-exception
+      (gr:connect tb src op (gr:ep dst 1)))
+
+    ))
+!#
 
 (with-test-prefix "test-io-signature-1"
   (let ((ios1 (gr:io-signature 1 2 8))
-- 
cgit 


From 10e3659b0cba48e834d577600392edbcfbff3b4b Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Mon, 8 Nov 2010 13:48:44 -0800
Subject: New macros pass-if-throw & expect-fail-throw that test exceptions.

Confirmed with "connect-5" test in 00_runtime_basics.test.
---
 .../src/guile/tests/00_runtime_basics.test          | 21 +++++++--------------
 1 file changed, 7 insertions(+), 14 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
index 989ae423c..93dcff4d7 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_basics.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -33,7 +33,7 @@
   (list->vector (map f (vector->list v))))
 
 
-(with-test-prefix "test-connect-1"
+(with-test-prefix "connect-1"
  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
 	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
 	 (tb (gr:top-block-swig "QA top block"))
@@ -50,7 +50,7 @@
     (test-equal expected-result (gr:data dst))
     ))
 
-(with-test-prefix "test-connect-2"
+(with-test-prefix "connect-2"
   (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
 	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
 	 (tb (gr:top-block-swig "QA top block"))
@@ -66,7 +66,7 @@
     (test-equal expected-result (gr:data dst))))
 
 
-(with-test-prefix "test-connect-3"
+(with-test-prefix "connect-3"
   (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
 	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
 	 (tb (gr:top-block-swig "QA top block"))
@@ -82,7 +82,7 @@
     (test-equal expected-result (gr:data dst))))
 
 
-(with-test-prefix "test-connect-4"
+(with-test-prefix "connect-4"
   (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
 	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
 	 (tb (gr:top-block-swig "QA top block"))
@@ -96,11 +96,7 @@
     (gr:run tb)
     (test-equal expected-result (gr:data dst))))
 
-#!
-;;; FIXME pass-if-exception is broken if the underlying code throws
-;;; (like ours does).  Need to write our own test utility for
-;;; exceptions.
-(with-test-prefix "test-connect-5"
+(with-test-prefix "connect-5"
   (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
 	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
 	 (tb (gr:top-block-swig "QA top block"))
@@ -108,14 +104,11 @@
 	 (op (gr:multiply-const-ii 2))
 	 (dst (gr:vector-sink-i)))
 
-    ;; FIXME This isn't working...
-    (pass-if-exception "bad port" exception:swig-exception
+    (pass-if-throw "bad port exception" 'swig-exception
       (gr:connect tb src op (gr:ep dst 1)))
-
     ))
-!#
 
-(with-test-prefix "test-io-signature-1"
+(with-test-prefix "io-signature-1"
   (let ((ios1 (gr:io-signature 1 2 8))
 	(ios2 (gr:io-signature2 1 2 16 32))
 	(ios3 (gr:io-signature3 1 -1 14 32 48))
-- 
cgit 


From 95a575c177be15b7d4a8634a071ee11f3fb403f4 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Mon, 8 Nov 2010 13:50:54 -0800
Subject: Add test case.

---
 .../src/guile/tests/00_runtime_basics.test         | 26 ++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
index 93dcff4d7..15bf9cb3f 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_basics.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -108,6 +108,32 @@
       (gr:connect tb src op (gr:ep dst 1)))
     ))
 
+#!
+;;; FIXME currently triggers core dump.
+;;; The problem is that swig isn't paying attention to
+;;; this throw declaration:
+;;;
+;;; gr_top_block.i:
+;;;   void start() throw (std::runtime_error);
+;;;
+(with-test-prefix "gr_top_block::start throw"
+  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
+	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
+	 (tb (gr:top-block-swig "QA top block"))
+	 (src (gr:vector-source-i src-data #f))
+	 (op (gr:multiply-const-ii 2))
+	 (dst (gr:vector-sink-i)))
+
+    ;; We deliberately don't connect op's output
+    (gr:connect tb src op)
+
+    ;; Which should lead to an exception here...
+    ;; but currently triggers a core dump.
+    (pass-if-throw "throws std::runtime_error" #t
+      (gr:run tb))
+    ))
+!#
+
 (with-test-prefix "io-signature-1"
   (let ((ios1 (gr:io-signature 1 2 8))
 	(ios2 (gr:io-signature2 1 2 16 32))
-- 
cgit 


From 941c9a792f103c48de6157026d08d7b0a6bae227 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Mon, 8 Nov 2010 14:03:19 -0800
Subject: Enable test case & fix (missing throw (std::runtime_error)
 declaration).

---
 gnuradio-core/src/guile/tests/00_runtime_basics.test | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
index 15bf9cb3f..18b298f22 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_basics.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -108,14 +108,6 @@
       (gr:connect tb src op (gr:ep dst 1)))
     ))
 
-#!
-;;; FIXME currently triggers core dump.
-;;; The problem is that swig isn't paying attention to
-;;; this throw declaration:
-;;;
-;;; gr_top_block.i:
-;;;   void start() throw (std::runtime_error);
-;;;
 (with-test-prefix "gr_top_block::start throw"
   (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
 	 (expected-result (vector-map (lambda (x) (* x 2)) src-data))
@@ -127,12 +119,10 @@
     ;; We deliberately don't connect op's output
     (gr:connect tb src op)
 
-    ;; Which should lead to an exception here...
-    ;; but currently triggers a core dump.
-    (pass-if-throw "throws std::runtime_error" #t
+    ;; Which will lead to an exception here...
+    (pass-if-throw "throws std::runtime_error" 'swig-exception
       (gr:run tb))
     ))
-!#
 
 (with-test-prefix "io-signature-1"
   (let ((ios1 (gr:io-signature 1 2 8))
-- 
cgit 


From 0eb9f4f3217dc9a68befab7f205aa2cdc67653f6 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Mon, 8 Nov 2010 14:47:27 -0800
Subject: new test case and fix for problem

---
 gnuradio-core/src/guile/tests/general_ctors.test | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index ef2a3e729..a706c827c 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -29,9 +29,20 @@
 (use-modules (gnuradio core))
 (use-modules (oop goops))
 
+
+;;; Return #t if x is not #f
+(define (true? x)
+  (and x #t))
+
 ;;; Add test code for all constructors in these files
-;;;
+
 ;;; ./general/gr_additive_scrambler_bb.h
+(pass-if (true? (gr:additive-scrambler-bb 0 0 0 0)))
+
+;; Here's one that will throw if its arg is 0
+(pass-if (true? (gr:unpack-k-bits-bb 10)))
+(pass-if-throw "confirm throw" #t (true? (gr:unpack-k-bits-bb 0)))
+
 ;;; ./general/gr_agc2_cc.h
 ;;; ./general/gr_agc2_ff.h
 ;;; ./general/gr_agc_cc.h
@@ -142,7 +153,6 @@
 ;;; ./general/gr_threshold_ff.h
 ;;; ./general/gr_throttle.h
 ;;; ./general/gr_uchar_to_float.h
-;;; ./general/gr_unpack_k_bits_bb.h
 ;;; ./general/gr_vco_f.h
 ;;; ./general/gr_vector_to_stream.h
 ;;; ./general/gr_vector_to_streams.h
-- 
cgit 


From 5a9a440109ef950ac8b749a55644528204520131 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Tue, 9 Nov 2010 18:41:27 -0700
Subject: add tests for all the constructors, failing ones commented out for
 now

---
 gnuradio-core/src/guile/tests/general_ctors.test | 279 ++++++++++++++++++++++-
 1 file changed, 274 insertions(+), 5 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index a706c827c..10ee9e9e8 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -29,7 +29,6 @@
 (use-modules (gnuradio core))
 (use-modules (oop goops))
 
-
 ;;; Return #t if x is not #f
 (define (true? x)
   (and x #t))
@@ -41,120 +40,390 @@
 
 ;; Here's one that will throw if its arg is 0
 (pass-if (true? (gr:unpack-k-bits-bb 10)))
-(pass-if-throw "confirm throw" #t (true? (gr:unpack-k-bits-bb 0)))
+(pass-if-throw "confirm throw gr:unpack-k-bits-bb" #t (true? (gr:unpack-k-bits-bb 0)))
 
 ;;; ./general/gr_agc2_cc.h
+(pass-if (true? (gr:agc2-cc 1e-1 1e-2 1.0 1.0 0.0)))
+
 ;;; ./general/gr_agc2_ff.h
+(pass-if (true? (gr:agc2-ff 0 0 0 0 0)))
+
 ;;; ./general/gr_agc_cc.h
+(pass-if (true? (gr:agc-cc 0 0 0 0)))
+
 ;;; ./general/gr_agc_ff.h
+(pass-if (true? (gr:agc-ff 0 0 0 0)))
+
 ;;; ./general/gr_align_on_samplenumbers_ss.h
+;; (pass-if (true? (gr:align-on-samplenumbers-ss 0 0))) FIXME: throws
+
 ;;; ./general/gr_bin_statistics_f.h
+;; (pass-if (true? (gr:bin-statistics-f 0 0 0 0 0))) FIXME: not found
+
 ;;; ./general/gr_binary_slicer_fb.h
+(pass-if (true? (gr:binary-slicer-fb)))
+
 ;;; ./general/gr_bytes_to_syms.h
+(pass-if (true? (gr:bytes-to-syms)))
+
 ;;; ./general/gr_char_to_float.h
+(pass-if (true? (gr:char-to-float)))
+
 ;;; ./general/gr_check_counting_s.h
+;; (pass-if (true? (gr:check-counting-s false))) FIXME: not found
+
 ;;; ./general/gr_check_lfsr_32k_s.h
+;; (pass-if (true? (gr:check-lfsr-2k-s))) FIXME: not found
+
 ;;; ./general/gr_clock_recovery_mm_cc.h
+(pass-if (true? (gr:clock-recovery-mm-cc 1 1 1 1 1)))
+;; (pass-if-throw "confirm throw gr:clock-recovery-mm-cc" #t (true? (gr:clock-recovery-mm-cc 0 0 0 0 0))) FIXME: segfault
+
 ;;; ./general/gr_clock_recovery_mm_ff.h
+(pass-if (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
+;; (pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff 0 0 0 0 0))) ;; FIXME: segfault
+
 ;;; ./general/gr_complex_to_interleaved_short.h
-;;; ./general/gr_complex_to_xxx.h
+(pass-if (true? (gr:complex-to-interleaved-short)))
+
+;;; ./general/gr_complex_to_xxx.h FIXME: all throw
+;; (pass-if (true? (gr:complex-to-float 0)))
+;; (pass-if (true? (gr:complex-to-real 0)))
+;; (pass-if (true? (gr:complex-to-imag 0)))
+;; (pass-if (true? (gr:complex-to-mag 0)))
+;; (pass-if (true? (gr:complex-to-mag-squared 0)))
+;; (pass-if (true? (gr:complex-to-arg 0)))
+
 ;;; ./general/gr_conjugate_cc.h
+(pass-if (true? (gr:conjugate-cc)))
+
 ;;; ./general/gr_constellation_decoder_cb.h
+;gr_constellation_decoder_cb (const std::vector<gr_complex> &sym_position, 
+;                               const std::vector<unsigned char> &sym_value_out);
+;; (pass-if (true? (gr:constellation_decoder_cb )))
+
 ;;; ./general/gr_copy.h
+;; (pass-if (true? (gr:copy 0))) FIXME: throws
+
 ;;; ./general/gr_correlate_access_code_bb.h
+(pass-if (true? (gr:correlate-access-code-bb "foo" 0)))
+;; (pass-if-throw "confirm throw correlate-access-code-bb" #t (true? (gr:correlate-access-code-bb "foo" -1))) FIXME: throws
+
 ;;; ./general/gr_costas_loop_cc.h
+(pass-if (true? (gr:costas-loop-cc 0 0 0 0 2)))
+(pass-if-throw "confirm throw gr:costas-loop-cc" #t (true? (gr:costas-loop-cc 0 0 0 0 3)))
+
 ;;; ./general/gr_cpfsk_bc.h
+;; (pass-if (true? (gr:cpfsk-bc 0 0 0))) FIXME: throws
+
 ;;; ./general/gr_ctcss_squelch_ff.h
+;; (pass-if (true? (gr:ctcss-squelch-ff 0 0 0 0 0 true))) FIXME: not found
+
 ;;; ./general/gr_decode_ccsds_27_fb.h
+(pass-if (true? (gr:decode-ccsds-27-fb)))
+
 ;;; ./general/gr_deinterleave.h
+;; (pass-if (true? (gr:deinterleave 0))) FIXME: throws
+
 ;;; ./general/gr_delay.h
+;; (pass-if (true? (gr:delay 0 0))) FIXME: throws
+ 
 ;;; ./general/gr_descrambler_bb.h
+(pass-if (true? (gr:descrambler-bb 0 0 0)))
+
 ;;; ./general/gr_diff_decoder_bb.h
+(pass-if (true? (gr:diff-decoder-bb 0)))
+
 ;;; ./general/gr_diff_encoder_bb.h
+(pass-if (true? (gr:diff-encoder-bb 0)))
+
 ;;; ./general/gr_diff_phasor_cc.h
+(pass-if (true? (gr:diff-phasor-cc)))
+
 ;;; ./general/gr_dpll_bb.h
+(pass-if (true? (gr:dpll-bb 0 0)))
+
 ;;; ./general/gr_encode_ccsds_27_bb.h
+(pass-if (true? (gr:encode-ccsds-27-bb)))
+
 ;;; ./general/gr_fake_channel_coder_pp.h
+;; (pass-if (true? (gr:fake-channel-coder-pp 1 1))) FIXME: not found
+;; (pass-if-throw "confirm throw" #t (true? (gr:fake-channel-coder-pp -1 1)))
+
 ;;; ./general/gr_feedforward_agc_cc.h
+;; (pass-if (true? (gr:feedforward-agc-cc 0 0))) FIXME: throws
+
 ;;; ./general/gr_fft_vcc.h
+;; gr_fft_vcc (int fft_size, bool forward, const std::vector<float> &window, bool shift);
+;; (pass-if (true? (gr:fft-vcc )))
+
 ;;; ./general/gr_fft_vcc_fftw.h
+;; gr_make_fft_vcc_fftw (int fft_size, bool forward, const std::vector<float> &window, bool shift);
+;; (pass-if (true? (gr:fft-vcc-fftw )))
+
 ;;; ./general/gr_fft_vfc.h
+;; bool set_window(const std::vector<float> &window);
+;; (pass-if (true? (gr:fft_vfc )))
+
 ;;; ./general/gr_fll_band_edge_cc.h
-;;; ./general/gr_float_to_char.h
-;;; ./general/gr_float_to_complex.h
+(pass-if (true? (gr:fll-band-edge-cc 0 0 0 0 0)))
+
+;; ;;; ./general/gr_float_to_char.h
+(pass-if (true? (gr:float-to-char)))
+
+;; ;;; ./general/gr_float_to_complex.h
+;; (pass-if (true? (gr:float-to-complex 0))) FIXME: throws
+
 ;;; ./general/gr_float_to_short.h
+(pass-if (true? (gr:float-to-short)))
+
 ;;; ./general/gr_float_to_uchar.h
+(pass-if (true? (gr:float-to-uchar)))
+
 ;;; ./general/gr_fmdet_cf.h
+(pass-if (true? (gr:fmdet-cf 0 0 0 0)))
+
 ;;; ./general/gr_framer_sink_1.h
+;; (pass-if (true? (gr:framer-sink-1))) FIXME: not found
+
 ;;; ./general/gr_frequency_modulator_fc.h
+(pass-if (true? (gr:frequency-modulator-fc 0)))
+
 ;;; ./general/gr_glfsr_source_b.h
+;; (pass-if (true? (gr: glfsr-source-b 0 true 0 0))) FIXME: not found
+;; (pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_b 33 true 0 0)))
+
 ;;; ./general/gr_glfsr_source_f.h
+;; (pass-if (true? (gr:glfsr-source-f 0 true 0 0))) FIXME: not found
+;; (pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_f 33 true 0 0)))
+
 ;;; ./general/gr_head.h
+;; (pass-if (true? (gr:head 0 0))) FIXME: throws
+
 ;;; ./general/gr_interleave.h
+;; (pass-if (true? (gr:interleave 0))) FIXME: throws
+
 ;;; ./general/gr_interleaved_short_to_complex.h
+(pass-if (true? (gr:interleaved-short-to-complex)))
+
 ;;; ./general/gr_iqcomp_cc.h
+;; (pass-if (true? (gr:iqcomp-cc 0 0))) FIXME: not found
+
 ;;; ./general/gr_keep_one_in_n.h
+;; (pass-if (true? (gr:keep-one-in-n 0 0))) FIXME: throws
+
 ;;; ./general/gr_kludge_copy.h
+;; (pass-if (true? (gr:kludge-copy 0))) FIXME: throws
+
 ;;; ./general/gr_lfsr_32k_source_s.h
+(pass-if (true? (gr:lfsr-32k-source-s)))
+
 ;;; ./general/gr_lms_dfe_cc.h
+;; (pass-if (true? (gr:lms-dfe-ff 0 0 0 0))) FIXME: hangs
+
 ;;; ./general/gr_lms_dfe_ff.h
+;; (pass-if (true? (gr:lms-dfe-ff 0 0 0 0))) FIXME: hangs
+
 ;;; ./general/gr_map_bb.h
+;; gr_map_bb (const std::vector<int> &map);
+;; (pass-if (true? (gr:map-bb xx)))
+
 ;;; ./general/gr_mpsk_receiver_cc.h
+;; (pass-if (true? (gr:mpsk-receiver-cc 0 0 0 0 0 0 0 0 0 0 0))) FIXME: throws
+
 ;;; ./general/gr_nlog10_ff.h
+;; (pass-if (true? (gr:nlog10-ff 0 0 0))) FIXME: throws
+
 ;;; ./general/gr_nop.h
+;; (pass-if (true? (gr:nop 0)))  FIXME: throws
+
 ;;; ./general/gr_null_sink.h
+;; (pass-if (true? (gr:null-sink 0))) FIXME: throws
+
 ;;; ./general/gr_null_source.h
+;; (pass-if (true? (gr:null-source 0)))v FIXME: throws
+
 ;;; ./general/gr_ofdm_bpsk_demapper.h
+;; (pass-if (true? (gr:ofdm-bpsk-demapper)))  FIXME: not found
+
 ;;; ./general/gr_ofdm_cyclic_prefixer.h
+;; (pass-if (true? (gr:ofdm-cyclic-prefixer 0 0))) FIXME: throws
+
 ;;; ./general/gr_ofdm_demapper_vcb.h
+;; (pass-if (true? (gr:ofdm-mapper-bcv 0 0))) FIXME: throws
+
 ;;; ./general/gr_ofdm_frame_acquisition.h
+;; gr_ofdm_frame_acquisition (unsigned int occupied_carriers,
+;;                              unsigned int fft_length,
+;;                              unsigned int cplen,
+;;                              const std::vector<gr_complex> &known_symbol, 
+;;                              unsigned int max_fft_shift_len);
+;; (pass-if (true? (gr:ofdm-frame-acquisition 0 0 0 (0 0) 0)))
+
 ;;; ./general/gr_ofdm_frame_sink.h
+;; gr_ofdm_frame_sink(const std::vector<gr_complex> &sym_position, 
+;;                      const std::vector<unsigned char> &sym_value_out,
+;;                      gr_msg_queue_sptr target_queue, unsigned int occupied_tones,
+;;                      float phase_gain, float freq_gain);
+;; (pass-if (true? (gr:ofdm_frame_sink )))
+
 ;;; ./general/gr_ofdm_insert_preamble.h
+;; gr_ofdm_insert_preamble(int fft_length,
+;;                           const std::vector<std::vector<gr_complex> > &preamble);
+;; (pass-if (true? (gr:ofdm-insert-preamble )))
+
 ;;; ./general/gr_ofdm_mapper_bcv.h
+;; gr_ofdm_mapper_bcv (const std::vector<gr_complex> &constellation,
+;;                       unsigned int msgq_limit,
+;;                       unsigned int bits_per_symbol,
+;;                       unsigned int fft_length);
+;; (pass-if (true? (gr:ofdm-mapper-bcv )))
+
 ;;; ./general/gr_ofdm_sampler.h
+;; (pass-if (true? (gr:ofdm-sampler 0 0 0))) FIXME: throws
+
 ;;; ./general/gr_pa_2x2_phase_combiner.h
+(pass-if (true? (gr:pa-2x2-phase-combiner)))
+
 ;;; ./general/gr_packet_sink.h
+;; (pass-if (true? gr_make_packet_sink (const std::vector<unsigned char>& sync_vector,
+;;                      gr_msg_queue_sptr target_queue,
+;;                      int threshold = -1        // -1 -> use default
+;;                      );
+;; (gr:packet-sink )))
+
 ;;; ./general/gr_peak_detector2_fb.h
+(pass-if (true? (gr:peak-detector2-fb 0 0 0)))
+
 ;;; ./general/gr_phase_modulator_fc.h
+(pass-if (true? (gr:phase-modulator-fc 0)))
+
 ;;; ./general/gr_pll_carriertracking_cc.h
+(pass-if (true? (gr:pll-carriertracking-cc 0 0 0 0)))
+
 ;;; ./general/gr_pll_freqdet_cf.h
+(pass-if (true? (gr:pll-freqdet-cf 0 0 0 0)))
+
 ;;; ./general/gr_pll_refout_cc.h
+(pass-if (true? (gr:pll-refout-cc 0 0 0 0)))
+
 ;;; ./general/gr_pn_correlator_cc.h
+;; (pass-if (true? (gr:pn-correlator-cc 0 0 0))) FIXME: throws
+
 ;;; ./general/gr_probe_avg_mag_sqrd_c.h
+(pass-if (true? (gr:probe-avg-mag-sqrd-c 0 0)))
+
 ;;; ./general/gr_probe_avg_mag_sqrd_cf.h
+(pass-if (true? (gr:probe-avg-mag-sqrd-cf 0 0)))
+
 ;;; ./general/gr_probe_avg_mag_sqrd_f.h
+(pass-if (true? (gr:probe-avg-mag-sqrd-f 0 0)))
+
 ;;; ./general/gr_probe_density_b.h
+(pass-if (true? (gr:probe-density-b 0)))
+
 ;;; ./general/gr_probe_mpsk_snr_c.h
+(pass-if (true? (gr:probe-mpsk-snr-c 0)))
+
 ;;; ./general/gr_probe_signal_f.h
+(pass-if (true? (gr:probe-signal-f)))
+
 ;;; ./general/gr_pwr_squelch_cc.h
+;; (pass-if (true? (gr:pwr-squelch-cc 0 0 0 0))) FIXME: not found
+
 ;;; ./general/gr_pwr_squelch_ff.h
+;; (pass-if (true? (gr:pwr-squelch-ff 0.0 0.0 0 false)))  FIXME: not found
+
 ;;; ./general/gr_quadrature_demod_cf.h
+(pass-if (true? (gr:quadrature-demod-cf 0)))
+
 ;;; ./general/gr_rail_ff.h
+(pass-if (true? (gr:rail-ff 0 0)))
+
 ;;; ./general/gr_regenerate_bb.h
+(pass-if (true? (gr:regenerate-bb 0 0)))
+
 ;;; ./general/gr_repeat.h
+;; (pass-if (true? (gr:repeat 0 0))) FIXME: throws
+
 ;;; ./general/gr_rms_cf.h
+(pass-if (true? (gr:rms-cf 0)))
+
 ;;; ./general/gr_rms_ff.h
+(pass-if (true? (gr:rms-ff 0)))
+
 ;;; ./general/gr_scrambler_bb.h
+(pass-if (true? (gr:scrambler-bb 0 0 0)))
+
 ;;; ./general/gr_short_to_float.h
+(pass-if (true? (gr:short-to-float)))
+
 ;;; ./general/gr_simple_correlator.h
+(pass-if (true? (gr:simple-correlator 0)))
+
 ;;; ./general/gr_simple_framer.h
+(pass-if (true? (gr:simple-framer 0)))
+
 ;;; ./general/gr_simple_squelch_cc.h
+(pass-if (true? (gr:simple-squelch-cc 0 0)))
+
 ;;; ./general/gr_skiphead.h
+;; (pass-if (true? (gr:skiphead 0 0))) FIXME: throws
+
 ;;; ./general/gr_squash_ff.h
+;; gr_squash_ff_sptr gr_make_squash_ff(const std::vector<float> &igrid,
+;;                                     const std::vector<float> &ogrid);
+;; (pass-if (true? (gr:squash_ff )))
+
 ;;; ./general/gr_squelch_base_cc.h
+;; (pass-if (true? (gr:squelch-base-cc "foo" 0 false))) FIXME: not found
+
 ;;; ./general/gr_squelch_base_ff.h
+;; (pass-if (true? (gr:squelch-base-ff "foo" 0 false))) FIXME: not found
+
 ;;; ./general/gr_stream_mux.h
+;; gr_make_stream_mux (size_t itemsize,
+;;              const std::vector<int> &lengths);
+;; (pass-if (true? (gr:stream_mux )))
+
 ;;; ./general/gr_stream_to_streams.h
+;; (pass-if (true? (gr:stream-to-streams 0 0))) FIXME: throws
+
 ;;; ./general/gr_stream_to_vector.h
+;; (pass-if (true? (gr:stream-to-vector 0 0))) FIXME: throws
+
 ;;; ./general/gr_streams_to_stream.h
+;; (pass-if (true? (gr:streams-to-stream 0 0))) FIXME: throws
+
 ;;; ./general/gr_streams_to_vector.h
+;; (pass-if (true? (gr:streams-to-vector 0 0))) FIXME: throws
+
 ;;; ./general/gr_stretch_ff.h
+;; (pass-if (true? (gr:stretch-ff 0 0))) FIXME: throws
+
 ;;; ./general/gr_test.h
+(pass-if (true? (gr:test "foo" 1 1 1 1 1 1 1 1)))
+
 ;;; ./general/gr_threshold_ff.h
+(pass-if (true? (gr:threshold-ff 0 0)))
+
 ;;; ./general/gr_throttle.h
+;; (pass-if (true? (gr:throttle 0 0)))  FIXME: throws
+
 ;;; ./general/gr_uchar_to_float.h
+(pass-if (true? (gr:uchar-to-float)))
+
 ;;; ./general/gr_vco_f.h
+(pass-if (true? (gr:vco-f 0 0 0)))
+
 ;;; ./general/gr_vector_to_stream.h
+;; (pass-if (true? (gr:vector-to-stream 0 0))) FIXME: throws
+
 ;;; ./general/gr_vector_to_streams.h
+;; (pass-if (true? (gr:vector-to-streams 0 0))) FIXME: throws
+
 ;;; ./general/gr_wavelet_ff.h
+;; (pass-if (true? (gr:wavelet-ff 0 0))) FIXME: throws
+
 ;;; ./general/gr_wvps_ff.h
+;; (pass-if (true? (gr:wvps_ff 0))) FIXME: throws
-- 
cgit 


From 15987345134793d3f6f0618bdf6b45ffc6609c0c Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Tue, 9 Nov 2010 19:26:40 -0800
Subject: Example of how to fix throw crashes

---
 gnuradio-core/src/guile/tests/general_ctors.test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 10ee9e9e8..0580d6382 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -55,7 +55,8 @@
 (pass-if (true? (gr:agc-ff 0 0 0 0)))
 
 ;;; ./general/gr_align_on_samplenumbers_ss.h
-;; (pass-if (true? (gr:align-on-samplenumbers-ss 0 0))) FIXME: throws
+(pass-if (true? (gr:align-on-samplenumbers-ss 2 128)))
+(pass-if-throw "confirm throw gr:align-on-samplenumbers-ss" #t (true? (gr:align-on-samplenumbers-ss 0 0)))
 
 ;;; ./general/gr_bin_statistics_f.h
 ;; (pass-if (true? (gr:bin-statistics-f 0 0 0 0 0))) FIXME: not found
-- 
cgit 


From 1c2355390190f67762a39d77424b5e48563cfe9a Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Tue, 9 Nov 2010 21:51:45 -0700
Subject: stub out all the tests, but they depend on the next branch. :-(

---
 gnuradio-core/src/guile/tests/io_ctors.test | 37 +++++++++++++++++++++++++++--
 1 file changed, 35 insertions(+), 2 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index 8bb0bc34f..6516ef7fe 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -31,16 +31,49 @@
 
 ;;; Add test code for all constructors in these files
 ;;;
+
 ;;; ./io/gr_file_descriptor_sink.h
+;;(pass-if (true? (gr:file-descriptor-sink 0 0))) FIXME: throws gr_io_signature(3)
+
 ;;; ./io/gr_file_descriptor_source.h
+;; (pass-if (true? (gr:file-descriptor-source 1 1 false))) FIXME: not found
+
 ;;; ./io/gr_file_sink.h
+(pass-if (true? (gr:file-sink 1 "foo")))
+
 ;;; ./io/gr_file_source.h
-;;; ./io/gr_histo_sink_f.h
+;; (pass-if (true? (gr:file-source 1 "foo" false))) FIXME: not found
+
+;;; ./io/gr_histo_sink_f.h FIXME: needs gr_msg_queue_sptr
+;; gr_make_histo_sink_f (gr_msg_queue_sptr msgq);
+;; (pass-if (true? (gr:histo-sink-f )))
+
 ;;; ./io/gr_message_sink.h
+;; (pass-if (true? (gr:message-sink )))
+
 ;;; ./io/gr_message_source.h
-;;; ./io/gr_oscope_sink_f.h
+;; (pass-if (true? (gr:message-source )))
+
+;;; ./io/gr_oscope_sink_f.h FIXME: needs gr_io_signature_sptr
+;; _oscope_sink_x (const std::string name, gr_io_signature_sptr input_sig,
+;;                     double sample_rate);
+;; (pass-if (true? (gr:oscope-sink-f )))
+
 ;;; ./io/gr_oscope_sink_x.h
+
+;; gr_oscope_sink_x (const std::string name,
+;;                     gr_io_signature_sptr input_sig,
+;;                     double sampling_rate);
+;; (pass-if (true? (gr:oscope_sink_x )))
+
 ;;; ./io/gr_udp_sink.h
+
 ;;; ./io/gr_udp_source.h
+;; (pass-if (true? (gr:message-source 0 "foo" 0 1472 true true))) FIXME: not found
+
 ;;; ./io/gr_wavfile_sink.h
+;; (pass-if (true? (gr:message-source "foo" 1 1 1))) FIXME: not found
+
 ;;; ./io/gr_wavfile_source.h
+;; (pass-if (true? (gr:message-source "foo" false))) FIXME: not found
+
-- 
cgit 


From ab0d7d5b428fdf39d38f335a0ea6fc9be4924ca5 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Tue, 9 Nov 2010 21:56:08 -0700
Subject: add tests for the stuff that works, stubs for the rest

---
 gnuradio-core/src/guile/tests/gengen_ctors.test | 84 ++++++++++++++++++++++---
 1 file changed, 74 insertions(+), 10 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index de4ecb35e..ead12a729 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -31,34 +31,98 @@
 
 ;;; Add test code for all constructors in these files
 ;;;
+
 ;;; ./gengen/gr_add_cc.h
+;; (pass-if (true? (gr:add-cc 0))) FIXME: throws gr_io_signature(3)
+
 ;;; ./gengen/gr_add_const_cc.h
+(pass-if (true? (gr:add-const-cc 0)))
+
 ;;; ./gengen/gr_add_const_ff.h
+(pass-if (true? (gr:add-const-ff 0)))
+
 ;;; ./gengen/gr_add_const_ii.h
+(pass-if (true? (gr:add-const-ii 0)))
+
 ;;; ./gengen/gr_add_const_sf.h
+(pass-if (true? (gr:add-const-sf 0)))
+
 ;;; ./gengen/gr_add_const_ss.h
-;;; ./gengen/gr_add_const_vcc.h
-;;; ./gengen/gr_add_const_vff.h
-;;; ./gengen/gr_add_const_vii.h
-;;; ./gengen/gr_add_const_vss.h
+(pass-if (true? (gr:add-const-ss 0)))
+
+;;; ./gengen/gr_add_const_vcc.h FIXME: needs complex
+;; gr_make_add_const_vcc (const std::vector<gr_complex> &k);
+;; (pass-if (true? (gr:add-const-vcc 0)))
+
+;;; ./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_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_vss.h FIXME: needs vector
+;; (pass-if (true? (gr:add-const-vss )))
+
 ;;; ./gengen/gr_add_ff.h
+;; (pass-if (true? (gr:add-ff 0))) FIXME: throws gr_io_signature(3)
+
 ;;; ./gengen/gr_add_ii.h
+;; (pass-if (true? (gr:add-ii 0))) FIXME: throws gr_io_signature(3)
+
 ;;; ./gengen/gr_add_ss.h
+;; (pass-if (true? (gr:add-ss 0 ))) FIXME: throws gr_io_signature(3)
+
 ;;; ./gengen/gr_and_bb.h
+(pass-if (true? (gr:and-bb)))
+
 ;;; ./gengen/gr_and_const_bb.h
+(pass-if (true? (gr:and-const-bb 0)))
+
 ;;; ./gengen/gr_and_const_ii.h
+(pass-if (true? (gr:and-const-ii 0)))
+
 ;;; ./gengen/gr_and_const_ss.h
+(pass-if (true? (gr:and-const-ss 0)))
+
 ;;; ./gengen/gr_and_ii.h
+(pass-if (true? (gr:and-ii)))
+
 ;;; ./gengen/gr_and_ss.h
+(pass-if (true? (gr:and-ss)))
+
 ;;; ./gengen/gr_argmax_fs.h
+(pass-if (true? (gr:argmax-fs 1)))
+
 ;;; ./gengen/gr_argmax_is.h
+(pass-if (true? (gr:argmax-is 1)))
+
 ;;; ./gengen/gr_argmax_ss.h
-;;; ./gengen/gr_chunks_to_symbols_bc.h
-;;; ./gengen/gr_chunks_to_symbols_bf.h
-;;; ./gengen/gr_chunks_to_symbols_ic.h
-;;; ./gengen/gr_chunks_to_symbols_if.h
-;;; ./gengen/gr_chunks_to_symbols_sc.h
-;;; ./gengen/gr_chunks_to_symbols_sf.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_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_ic.h FIXME: needs vector
+;; 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 )))
+
+;;; ./gengen/gr_chunks_to_symbols_if.h FIXME: needs vector
+;; gr_make_chunks_to_symbols_if (const std::vector<float> &symbol_table, const int D = 1);
+;; (pass-if (true? (gr:chunks_to_symbols_if )))
+
+;;; ./gengen/gr_chunks_to_symbols_sc.h FIXME: needs vector
+;; (pass-if (true? (gr:chunks_to_symbols_sc )))
+
+;;; ./gengen/gr_chunks_to_symbols_sf.h FIXME: needs vector
+;; (pass-if (true? (gr:chunks_to_symbols_sf )))
+
 ;;; ./gengen/gr_divide_cc.h
 ;;; ./gengen/gr_divide_ff.h
 ;;; ./gengen/gr_divide_ii.h
-- 
cgit 


From b580c7b327028fc5cfd48cdebe8cab819c17fa75 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Tue, 9 Nov 2010 21:56:45 -0700
Subject: add stub for the only test

---
 gnuradio-core/src/guile/tests/hier_ctors.test | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/hier_ctors.test b/gnuradio-core/src/guile/tests/hier_ctors.test
index 48d2bfa2d..8a83c86d5 100644
--- a/gnuradio-core/src/guile/tests/hier_ctors.test
+++ b/gnuradio-core/src/guile/tests/hier_ctors.test
@@ -31,4 +31,10 @@
 
 ;;; Add test code for all constructors in these files
 ;;;
+
 ;;; ./hier/gr_channel_model.h
+;; gr_make_channel_model(double noise_voltage=0.0, double frequency_offset=0.0,
+;;                       double epsilon=1.0,
+;; 		      const std::vector<gr_complex> &taps=std::vector<gr_complex>(1, 1),
+;;                       double noise_seed=3021);
+;; (pass-if (true? (gr:channel_model )))
-- 
cgit 


From b4f491386b9cb67cd35cee8032f559442822ddab Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 09:36:27 -0700
Subject: initial blast through gengen tests

---
 gnuradio-core/src/guile/tests/gengen_ctors.test | 232 +++++++++++++++++++++---
 1 file changed, 204 insertions(+), 28 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index ead12a729..5bdd207f9 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -124,77 +124,253 @@
 ;; (pass-if (true? (gr:chunks_to_symbols_sf )))
 
 ;;; ./gengen/gr_divide_cc.h
+(pass-if (true? (gr:divide-cc 1)))
+
 ;;; ./gengen/gr_divide_ff.h
+(pass-if (true? (gr:divide-ff 1)))
+
 ;;; ./gengen/gr_divide_ii.h
+(pass-if (true? (gr:divide-ii 1)))
+
 ;;; ./gengen/gr_divide_ss.h
+(pass-if (true? (gr:divide-ss 1)))
+
 ;;; ./gengen/gr_integrate_cc.h
+(pass-if (true? (gr:integrate-cc 0)))
+
 ;;; ./gengen/gr_integrate_ff.h
+(pass-if (true? (gr:integrate-ff 0)))
+
 ;;; ./gengen/gr_integrate_ii.h
+(pass-if (true? (gr:integrate-ii 0)))
+
 ;;; ./gengen/gr_integrate_ss.h
+(pass-if (true? (gr:integrate-ss 0)))
+
 ;;; ./gengen/gr_max_ff.h
+(pass-if (true? (gr:max-ff 1)))
+
 ;;; ./gengen/gr_max_ii.h
+(pass-if (true? (gr:max-ii 1)))
+
 ;;; ./gengen/gr_max_ss.h
-;;; ./gengen/gr_moving_average_cc.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_ff.h
+(pass-if (true? (gr:moving-average-ff 1 0 4096)))
+
 ;;; ./gengen/gr_moving_average_ii.h
+(pass-if (true? (gr:moving-average-ii 1 0 4096)))
+
 ;;; ./gengen/gr_moving_average_ss.h
+(pass-if (true? (gr:moving-average-ss 1 0 4096)))
+
 ;;; ./gengen/gr_multiply_cc.h
+(pass-if (true? (gr:multiply-cc 1)))
+
 ;;; ./gengen/gr_multiply_const_cc.h
+(pass-if (true? (gr:multiply-const-cc 1)))
+
 ;;; ./gengen/gr_multiply_const_ff.h
+(pass-if (true? (gr:multiply-const-ff 1)))
+
 ;;; ./gengen/gr_multiply_const_ii.h
+(pass-if (true? (gr:multiply-const-ii 1)))
+
 ;;; ./gengen/gr_multiply_const_ss.h
-;;; ./gengen/gr_multiply_const_vcc.h
-;;; ./gengen/gr_multiply_const_vff.h
-;;; ./gengen/gr_multiply_const_vii.h
-;;; ./gengen/gr_multiply_const_vss.h
+(pass-if (true? (gr:multiply-const-ss 1)))
+
+;;; ./gengen/gr_multiply_const_vcc.h FIXME: needs vector
+;; gr_make_multiply_const_vcc (const std::vector<gr_complex> &k);
+;; (pass-if (true? (gr:multiply-const-vcc 1)))
+
+;;; ./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_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_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_ff.h
+(pass-if (true? (gr:multiply-ff 1)))
+
 ;;; ./gengen/gr_multiply_ii.h
+(pass-if (true? (gr:multiply-ii 1)))
+
 ;;; ./gengen/gr_multiply_ss.h
-;;; ./gengen/gr_mute_cc.h
-;;; ./gengen/gr_mute_ff.h
-;;; ./gengen/gr_mute_ii.h
-;;; ./gengen/gr_mute_ss.h
-;;; ./gengen/gr_noise_source_c.h
-;;; ./gengen/gr_noise_source_f.h
-;;; ./gengen/gr_noise_source_i.h
-;;; ./gengen/gr_noise_source_s.h
+(pass-if (true? (gr:multiply-ss 1)))
+
+;;; ./gengen/gr_mute_cc.h FIXME: not found
+;; (pass-if (true? (gr:mute-cc false)))
+
+;;; ./gengen/gr_mute_ff.h FIXME: not found
+;;(pass-if (true? (gr:mute-ff false)))
+
+;;; ./gengen/gr_mute_ii.h FIXME: not found
+;; (pass-if (true? (gr:mute-ii false)))
+
+;;; ./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_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_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_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_not_bb.h
+(pass-if (true? (gr:not-bb)))
+
 ;;; ./gengen/gr_not_ii.h
+(pass-if (true? (gr:not-ii)))
+
 ;;; ./gengen/gr_not_ss.h
+(pass-if (true? (gr:not-ss)))
+
 ;;; ./gengen/gr_or_bb.h
+(pass-if (true? (gr:or-bb)))
+
 ;;; ./gengen/gr_or_ii.h
+(pass-if (true? (gr:or-ii)))
+
 ;;; ./gengen/gr_or_ss.h
-;;; ./gengen/gr_packed_to_unpacked_bb.h
-;;; ./gengen/gr_packed_to_unpacked_ii.h
-;;; ./gengen/gr_packed_to_unpacked_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_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_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_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)))
+
 ;;; ./gengen/gr_peak_detector_sb.h
+(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)))
+
 ;;; ./gengen/gr_sample_and_hold_ff.h
+(pass-if (true? (gr:sample-and-hold-ff)))
+
 ;;; ./gengen/gr_sample_and_hold_ii.h
+(pass-if (true? (gr:sample-and-hold-ii)))
+
 ;;; ./gengen/gr_sample_and_hold_ss.h
-;;; ./gengen/gr_sig_source_c.h
-;;; ./gengen/gr_sig_source_f.h
-;;; ./gengen/gr_sig_source_i.h
-;;; ./gengen/gr_sig_source_s.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_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_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_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_sub_cc.h
+(pass-if (true? (gr:sub-cc 1)))
+
 ;;; ./gengen/gr_sub_ff.h
+(pass-if (true? (gr:sub-ff 1)))
+
 ;;; ./gengen/gr_sub_ii.h
+(pass-if (true? (gr:sub-ii 1)))
+
 ;;; ./gengen/gr_sub_ss.h
-;;; ./gengen/gr_unpacked_to_packed_bb.h
-;;; ./gengen/gr_unpacked_to_packed_ii.h
-;;; ./gengen/gr_unpacked_to_packed_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_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_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_vector_sink_b.h
+(pass-if (true? (gr:vector-sink-b 1)))
+
 ;;; ./gengen/gr_vector_sink_c.h
+(pass-if (true? (gr:vector-sink-c 1)))
+
 ;;; ./gengen/gr_vector_sink_f.h
+(pass-if (true? (gr:vector-sink-f 1)))
+
 ;;; ./gengen/gr_vector_sink_i.h
+(pass-if (true? (gr:vector-sink-i 1)))
+
 ;;; ./gengen/gr_vector_sink_s.h
-;;; ./gengen/gr_vector_source_b.h
-;;; ./gengen/gr_vector_source_c.h
-;;; ./gengen/gr_vector_source_f.h
-;;; ./gengen/gr_vector_source_i.h
-;;; ./gengen/gr_vector_source_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_c.h FIXME: needs vector, may throw
+;; gr_make_vector_source_c (const std::vector<gr_complex> &data, bool repeat = false, int vlen = 1)
+;; (pass-if (true? (gr:vector-source-c )))
+
+;;; ./gengen/gr_vector_source_f.h FIXME: needs vector, may throw
+;; gr_make_vector_source_f (const std::vector<float> &data, bool repeat = false, int vlen = 1)
+;; (pass-if (true? (gr:vector-source-f )))
+
+;;; ./gengen/gr_vector_source_i.h FIXME: needs vector, may throw
+;; gr_make_vector_source_i (const std::vector<int> &data, bool repeat = false, int vlen = 1)
+;; (pass-if (true? (gr:vector-source-i )))
+
+;;; ./gengen/gr_vector_source_s.h FIXME: needs vector, may throw
+;; (pass-if (true? (gr:vector-source-s )))
+
 ;;; ./gengen/gr_xor_bb.h
+(pass-if (true? (gr:xor-bb)))
+
 ;;; ./gengen/gr_xor_ii.h
+(pass-if (true? (gr:xor-ii)))
+
 ;;; ./gengen/gr_xor_ss.h
+(pass-if (true? (gr:xor-ss)))
-- 
cgit 


From 2567c81d0236437034b0ab02de8e5cc657064249 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 10:14:14 -0700
Subject: fix most of the tests to work.

---
 gnuradio-core/src/guile/tests/gengen_ctors.test | 173 ++++++++++--------------
 1 file changed, 73 insertions(+), 100 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

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)))
-- 
cgit 


From 8c2c60e6777a41a202a6e387384b1b536eb33c8b Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 10:35:05 -0700
Subject: fix one test

---
 gnuradio-core/src/guile/tests/gengen_ctors.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index f05feceb6..10eb1d9e0 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -33,7 +33,7 @@
 ;;;
 
 ;;; ./gengen/gr_add_cc.h
-;; (pass-if (true? (gr:add-cc 0))) FIXME: throws gr_io_signature(3)
+(pass-if (true? (gr:add-cc 1)))
 
 ;;; ./gengen/gr_add_const_cc.h
 (pass-if (true? (gr:add-const-cc 0)))
-- 
cgit 


From 649cf353deb00fcfce7da7e748dee77c3444e0e3 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 10:40:50 -0700
Subject: stub out the rest of the not found tests

---
 gnuradio-core/src/guile/tests/io_ctors.test | 39 ++++++++++++++---------------
 1 file changed, 19 insertions(+), 20 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index 6516ef7fe..80fb2d3f2 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -41,39 +41,38 @@
 ;;; ./io/gr_file_sink.h
 (pass-if (true? (gr:file-sink 1 "foo")))
 
-;;; ./io/gr_file_source.h
-;; (pass-if (true? (gr:file-source 1 "foo" false))) FIXME: not found
+;;; ./io/gr_file_source.h FIXME: not found
+;; (pass-if (true? (gr:file-source 1 "foo" false)))
 
-;;; ./io/gr_histo_sink_f.h FIXME: needs gr_msg_queue_sptr
+;;; ./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 )))
+;; (pass-if (true? (gr:histo-sink-f 1)))
 
-;;; ./io/gr_message_sink.h
-;; (pass-if (true? (gr:message-sink )))
+;;; ./io/gr_message_sink.h FIXME: not found
+;; (pass-if (true? (gr:message-sink 1 1 false)))
 
 ;;; ./io/gr_message_source.h
 ;; (pass-if (true? (gr:message-source )))
 
-;;; ./io/gr_oscope_sink_f.h FIXME: needs gr_io_signature_sptr
+;;; ./io/gr_oscope_sink_f.h FIXME: not found
 ;; _oscope_sink_x (const std::string name, gr_io_signature_sptr input_sig,
 ;;                     double sample_rate);
-;; (pass-if (true? (gr:oscope-sink-f )))
+;; (pass-if (true? (gr:oscope-sink-f "foo" 1 1)))
 
-;;; ./io/gr_oscope_sink_x.h
-
-;; gr_oscope_sink_x (const std::string name,
-;;                     gr_io_signature_sptr input_sig,
+;;; ./io/gr_oscope_sink_x.h FIXME: not found
+;; gr_oscope_sink_x (const std::string name, gr_io_signature_sptr input_sig,
 ;;                     double sampling_rate);
-;; (pass-if (true? (gr:oscope_sink_x )))
+;; (pass-if (true? (gr:oscope_sink_x "foo" 1 1)))
 
-;;; ./io/gr_udp_sink.h
+;;; ./io/gr_udp_sink.h FIXME: not found
+;; (pass-if (true? (gr:udp-sink 1 "foo" 1472 true)))
 
-;;; ./io/gr_udp_source.h
-;; (pass-if (true? (gr:message-source 0 "foo" 0 1472 true true))) FIXME: not found
+;;; ./io/gr_udp_source.h FIXME: not found
+;; (pass-if (true? (gr:message-source 0 "foo" 0 1472 true true)))
 
-;;; ./io/gr_wavfile_sink.h
-;; (pass-if (true? (gr:message-source "foo" 1 1 1))) FIXME: not found
+;;; ./io/gr_wavfile_sink.h FIXME: not found
+;; (pass-if (true? (gr:message-source "foo" 1 1 1)))
 
-;;; ./io/gr_wavfile_source.h
-;; (pass-if (true? (gr:message-source "foo" false))) FIXME: not found
+;;; ./io/gr_wavfile_source.h FIXME: not found
+;; (pass-if (true? (gr:message-source "foo" false)))
 
-- 
cgit 


From a740d3fbda03e2b718bd10ea78c0eeb1ce178586 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 11:29:36 -0700
Subject: fix bogus throws and vectors

---
 gnuradio-core/src/guile/tests/general_ctors.test | 184 +++++++++++------------
 1 file changed, 87 insertions(+), 97 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 0580d6382..6153ce795 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -54,12 +54,12 @@
 ;;; ./general/gr_agc_ff.h
 (pass-if (true? (gr:agc-ff 0 0 0 0)))
 
-;;; ./general/gr_align_on_samplenumbers_ss.h
+;;; ./general/gr_align_on_samplenumbers_ss.h FIXME: throws
 (pass-if (true? (gr:align-on-samplenumbers-ss 2 128)))
-(pass-if-throw "confirm throw gr:align-on-samplenumbers-ss" #t (true? (gr:align-on-samplenumbers-ss 0 0)))
+;; (pass-if-throw "confirm throw gr:align-on-samplenumbers-ss" #t (true? (gr:align-on-samplenumbers-ss 0 0)))
 
-;;; ./general/gr_bin_statistics_f.h
-;; (pass-if (true? (gr:bin-statistics-f 0 0 0 0 0))) FIXME: not found
+;;; ./general/gr_bin_statistics_f.h FIXME: not found
+;; (pass-if (true? (gr:bin-statistics-f 0 0 0 0 0)))
 
 ;;; ./general/gr_binary_slicer_fb.h
 (pass-if (true? (gr:binary-slicer-fb)))
@@ -70,11 +70,11 @@
 ;;; ./general/gr_char_to_float.h
 (pass-if (true? (gr:char-to-float)))
 
-;;; ./general/gr_check_counting_s.h
-;; (pass-if (true? (gr:check-counting-s false))) FIXME: not found
+;;; ./general/gr_check_counting_s.h FIXME: not found
+;; (pass-if (true? (gr:check-counting-s false)))
 
-;;; ./general/gr_check_lfsr_32k_s.h
-;; (pass-if (true? (gr:check-lfsr-2k-s))) FIXME: not found
+;;; ./general/gr_check_lfsr_32k_s.h FIXME: not found
+;; (pass-if (true? (gr:check-lfsr-2k-s)))
 
 ;;; ./general/gr_clock_recovery_mm_cc.h
 (pass-if (true? (gr:clock-recovery-mm-cc 1 1 1 1 1)))
@@ -82,29 +82,29 @@
 
 ;;; ./general/gr_clock_recovery_mm_ff.h
 (pass-if (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
-;; (pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff 0 0 0 0 0))) ;; FIXME: segfault
+(pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
 
 ;;; ./general/gr_complex_to_interleaved_short.h
 (pass-if (true? (gr:complex-to-interleaved-short)))
 
-;;; ./general/gr_complex_to_xxx.h FIXME: all throw
-;; (pass-if (true? (gr:complex-to-float 0)))
-;; (pass-if (true? (gr:complex-to-real 0)))
-;; (pass-if (true? (gr:complex-to-imag 0)))
-;; (pass-if (true? (gr:complex-to-mag 0)))
-;; (pass-if (true? (gr:complex-to-mag-squared 0)))
-;; (pass-if (true? (gr:complex-to-arg 0)))
+;;; ./general/gr_complex_to_xxx.h
+(pass-if (true? (gr:complex-to-float 1)))
+(pass-if (true? (gr:complex-to-real 1)))
+(pass-if (true? (gr:complex-to-imag 1)))
+(pass-if (true? (gr:complex-to-mag 1)))
+(pass-if (true? (gr:complex-to-mag-squared 1)))
+(pass-if (true? (gr:complex-to-arg 1)))
 
 ;;; ./general/gr_conjugate_cc.h
 (pass-if (true? (gr:conjugate-cc)))
 
-;;; ./general/gr_constellation_decoder_cb.h
+;;; ./general/gr_constellation_decoder_cb.h FIXME: not found
 ;gr_constellation_decoder_cb (const std::vector<gr_complex> &sym_position, 
 ;                               const std::vector<unsigned char> &sym_value_out);
-;; (pass-if (true? (gr:constellation_decoder_cb )))
+;; (pass-if (true? (gr:constellation_decoder_cb #(1+3i 23+5i) #(1 2))))
 
 ;;; ./general/gr_copy.h
-;; (pass-if (true? (gr:copy 0))) FIXME: throws
+(pass-if (true? (gr:copy 1)))
 
 ;;; ./general/gr_correlate_access_code_bb.h
 (pass-if (true? (gr:correlate-access-code-bb "foo" 0)))
@@ -115,19 +115,19 @@
 (pass-if-throw "confirm throw gr:costas-loop-cc" #t (true? (gr:costas-loop-cc 0 0 0 0 3)))
 
 ;;; ./general/gr_cpfsk_bc.h
-;; (pass-if (true? (gr:cpfsk-bc 0 0 0))) FIXME: throws
+(pass-if (true? (gr:cpfsk-bc 1 1 1)))
 
-;;; ./general/gr_ctcss_squelch_ff.h
-;; (pass-if (true? (gr:ctcss-squelch-ff 0 0 0 0 0 true))) FIXME: not found
+;;; ./general/gr_ctcss_squelch_ff.h FIXME: not found
+;; (pass-if (true? (gr:ctcss-squelch-ff 0 0 0 0 0 true)))
 
 ;;; ./general/gr_decode_ccsds_27_fb.h
 (pass-if (true? (gr:decode-ccsds-27-fb)))
 
 ;;; ./general/gr_deinterleave.h
-;; (pass-if (true? (gr:deinterleave 0))) FIXME: throws
+(pass-if (true? (gr:deinterleave 1)))
 
 ;;; ./general/gr_delay.h
-;; (pass-if (true? (gr:delay 0 0))) FIXME: throws
+(pass-if (true? (gr:delay 1 1)))
  
 ;;; ./general/gr_descrambler_bb.h
 (pass-if (true? (gr:descrambler-bb 0 0 0)))
@@ -147,24 +147,22 @@
 ;;; ./general/gr_encode_ccsds_27_bb.h
 (pass-if (true? (gr:encode-ccsds-27-bb)))
 
-;;; ./general/gr_fake_channel_coder_pp.h
-;; (pass-if (true? (gr:fake-channel-coder-pp 1 1))) FIXME: not found
+;;; ./general/gr_fake_channel_coder_pp.h FIXME: not found
+;; (pass-if (true? (gr:fake-channel-coder-pp 1 1)))
 ;; (pass-if-throw "confirm throw" #t (true? (gr:fake-channel-coder-pp -1 1)))
 
 ;;; ./general/gr_feedforward_agc_cc.h
-;; (pass-if (true? (gr:feedforward-agc-cc 0 0))) FIXME: throws
+(pass-if (true? (gr:feedforward-agc-cc 1 1)))
 
-;;; ./general/gr_fft_vcc.h
-;; gr_fft_vcc (int fft_size, bool forward, const std::vector<float> &window, bool shift);
-;; (pass-if (true? (gr:fft-vcc )))
+;;; ./general/gr_fft_vcc.h FIXME: not found
+;; (pass-if (true? (gr:fft-vcc 1 false #(1.0 2.0) true)))
 
-;;; ./general/gr_fft_vcc_fftw.h
-;; gr_make_fft_vcc_fftw (int fft_size, bool forward, const std::vector<float> &window, bool shift);
-;; (pass-if (true? (gr:fft-vcc-fftw )))
+;;; ./general/gr_fft_vcc_fftw.h FIXME: not found
+;; (pass-if (true? (gr:fft-vcc-fftw 1 #(1.0 2.0) false)))
 
-;;; ./general/gr_fft_vfc.h
+;;; ./general/gr_fft_vfc.h FIXME: not found
 ;; bool set_window(const std::vector<float> &window);
-;; (pass-if (true? (gr:fft_vfc )))
+;; (pass-if (true? (gr:fft_vfc #(1.0 2.0))))
 
 ;;; ./general/gr_fll_band_edge_cc.h
 (pass-if (true? (gr:fll-band-edge-cc 0 0 0 0 0)))
@@ -173,7 +171,7 @@
 (pass-if (true? (gr:float-to-char)))
 
 ;; ;;; ./general/gr_float_to_complex.h
-;; (pass-if (true? (gr:float-to-complex 0))) FIXME: throws
+(pass-if (true? (gr:float-to-complex 1)))
 
 ;;; ./general/gr_float_to_short.h
 (pass-if (true? (gr:float-to-short)))
@@ -184,114 +182,110 @@
 ;;; ./general/gr_fmdet_cf.h
 (pass-if (true? (gr:fmdet-cf 0 0 0 0)))
 
-;;; ./general/gr_framer_sink_1.h
-;; (pass-if (true? (gr:framer-sink-1))) FIXME: not found
+;;; ./general/gr_framer_sink_1.h FIXME: not found
+;; (pass-if (true? (gr:framer-sink-1)))
 
 ;;; ./general/gr_frequency_modulator_fc.h
 (pass-if (true? (gr:frequency-modulator-fc 0)))
 
-;;; ./general/gr_glfsr_source_b.h
-;; (pass-if (true? (gr: glfsr-source-b 0 true 0 0))) FIXME: not found
+;;; ./general/gr_glfsr_source_b.h FIXME: not found
+;; (pass-if (true? (gr: glfsr-source-b 0 true 0 0)))
 ;; (pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_b 33 true 0 0)))
 
-;;; ./general/gr_glfsr_source_f.h
-;; (pass-if (true? (gr:glfsr-source-f 0 true 0 0))) FIXME: not found
+;;; ./general/gr_glfsr_source_f.h FIXME: not found
+;; (pass-if (true? (gr:glfsr-source-f 1 true 1 1)))
 ;; (pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_f 33 true 0 0)))
 
 ;;; ./general/gr_head.h
-;; (pass-if (true? (gr:head 0 0))) FIXME: throws
+(pass-if (true? (gr:head 1 1)))
 
 ;;; ./general/gr_interleave.h
-;; (pass-if (true? (gr:interleave 0))) FIXME: throws
+(pass-if (true? (gr:interleave 1)))
 
 ;;; ./general/gr_interleaved_short_to_complex.h
 (pass-if (true? (gr:interleaved-short-to-complex)))
 
-;;; ./general/gr_iqcomp_cc.h
-;; (pass-if (true? (gr:iqcomp-cc 0 0))) FIXME: not found
+;;; ./general/gr_iqcomp_cc.h FIXME: not found
+;; (pass-if (true? (gr:iqcomp-cc 1 1)))
 
 ;;; ./general/gr_keep_one_in_n.h
-;; (pass-if (true? (gr:keep-one-in-n 0 0))) FIXME: throws
+(pass-if (true? (gr:keep-one-in-n 1 1)))
 
 ;;; ./general/gr_kludge_copy.h
-;; (pass-if (true? (gr:kludge-copy 0))) FIXME: throws
+(pass-if (true? (gr:kludge-copy 1)))
 
 ;;; ./general/gr_lfsr_32k_source_s.h
 (pass-if (true? (gr:lfsr-32k-source-s)))
 
 ;;; ./general/gr_lms_dfe_cc.h
-;; (pass-if (true? (gr:lms-dfe-ff 0 0 0 0))) FIXME: hangs
+(pass-if (true? (gr:lms-dfe-ff 1 1 1 1)))
 
 ;;; ./general/gr_lms_dfe_ff.h
-;; (pass-if (true? (gr:lms-dfe-ff 0 0 0 0))) FIXME: hangs
+(pass-if (true? (gr:lms-dfe-ff 1 1 1 1)))
 
 ;;; ./general/gr_map_bb.h
 ;; gr_map_bb (const std::vector<int> &map);
-;; (pass-if (true? (gr:map-bb xx)))
+(pass-if (true? (gr:map-bb #(1 2))))
 
 ;;; ./general/gr_mpsk_receiver_cc.h
-;; (pass-if (true? (gr:mpsk-receiver-cc 0 0 0 0 0 0 0 0 0 0 0))) FIXME: throws
+(pass-if (true? (gr:mpsk-receiver-cc 1 1 1 1 1 1 1 1 1 1 1)))
 
 ;;; ./general/gr_nlog10_ff.h
-;; (pass-if (true? (gr:nlog10-ff 0 0 0))) FIXME: throws
+(pass-if (true? (gr:nlog10-ff 1 1 1)))
 
 ;;; ./general/gr_nop.h
-;; (pass-if (true? (gr:nop 0)))  FIXME: throws
+(pass-if (true? (gr:nop 1)))
 
 ;;; ./general/gr_null_sink.h
-;; (pass-if (true? (gr:null-sink 0))) FIXME: throws
+(pass-if (true? (gr:null-sink 1)))
 
 ;;; ./general/gr_null_source.h
-;; (pass-if (true? (gr:null-source 0)))v FIXME: throws
+(pass-if (true? (gr:null-source 1)))
 
-;;; ./general/gr_ofdm_bpsk_demapper.h
-;; (pass-if (true? (gr:ofdm-bpsk-demapper)))  FIXME: not found
+;;; ./general/gr_ofdm_bpsk_demapper.h FIXME: not found
+;; (pass-if (true? (gr:ofdm-bpsk-demapper 1)))
 
 ;;; ./general/gr_ofdm_cyclic_prefixer.h
-;; (pass-if (true? (gr:ofdm-cyclic-prefixer 0 0))) FIXME: throws
+(pass-if (true? (gr:ofdm-cyclic-prefixer 1 1)))
 
-;;; ./general/gr_ofdm_demapper_vcb.h
-;; (pass-if (true? (gr:ofdm-mapper-bcv 0 0))) FIXME: throws
+;;; ./general/gr_ofdm_demapper_vcb.h FIXME: not found
+;; (pass-if (true? (gr:ofdm-mapper-bcv 1 1)))
 
-;;; ./general/gr_ofdm_frame_acquisition.h
+;;; ./general/gr_ofdm_frame_acquisition.h FIXME: not found
 ;; gr_ofdm_frame_acquisition (unsigned int occupied_carriers,
 ;;                              unsigned int fft_length,
 ;;                              unsigned int cplen,
 ;;                              const std::vector<gr_complex> &known_symbol, 
 ;;                              unsigned int max_fft_shift_len);
-;; (pass-if (true? (gr:ofdm-frame-acquisition 0 0 0 (0 0) 0)))
+;; (pass-if (true? (gr:ofdm-frame-acquisition 0 0 0 #(1+3i 23+5i) 0)))
 
-;;; ./general/gr_ofdm_frame_sink.h
+;;; ./general/gr_ofdm_frame_sink.h FIXME: not found
 ;; gr_ofdm_frame_sink(const std::vector<gr_complex> &sym_position, 
 ;;                      const std::vector<unsigned char> &sym_value_out,
 ;;                      gr_msg_queue_sptr target_queue, unsigned int occupied_tones,
 ;;                      float phase_gain, float freq_gain);
-;; (pass-if (true? (gr:ofdm_frame_sink )))
+;; (pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(1 2) 1 1 0.25 0)))
 
-;;; ./general/gr_ofdm_insert_preamble.h
+;;; ./general/gr_ofdm_insert_preamble.h FIXME: Wrong type argument in position ~A:
 ;; gr_ofdm_insert_preamble(int fft_length,
 ;;                           const std::vector<std::vector<gr_complex> > &preamble);
-;; (pass-if (true? (gr:ofdm-insert-preamble )))
+;; (pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i) #(1+3i 23+5i)))))
 
-;;; ./general/gr_ofdm_mapper_bcv.h
+;;; ./general/gr_ofdm_mapper_bcv.h FIXME: Wrong type argument in position ~A:
 ;; gr_ofdm_mapper_bcv (const std::vector<gr_complex> &constellation,
 ;;                       unsigned int msgq_limit,
 ;;                       unsigned int bits_per_symbol,
 ;;                       unsigned int fft_length);
-;; (pass-if (true? (gr:ofdm-mapper-bcv )))
+;; (pass-if (true? (gr:ofdm-mapper-bcv #(1+3i 23+5i) 1 1 1)))
 
 ;;; ./general/gr_ofdm_sampler.h
-;; (pass-if (true? (gr:ofdm-sampler 0 0 0))) FIXME: throws
+(pass-if (true? (gr:ofdm-sampler 1 1 1)))
 
 ;;; ./general/gr_pa_2x2_phase_combiner.h
 (pass-if (true? (gr:pa-2x2-phase-combiner)))
 
-;;; ./general/gr_packet_sink.h
-;; (pass-if (true? gr_make_packet_sink (const std::vector<unsigned char>& sync_vector,
-;;                      gr_msg_queue_sptr target_queue,
-;;                      int threshold = -1        // -1 -> use default
-;;                      );
-;; (gr:packet-sink )))
+;;; ./general/gr_packet_sink.h FIXME: not found
+;; (pass-if (true? (gr:packet-sink #(1 2) 1 -1)))
 
 ;;; ./general/gr_peak_detector2_fb.h
 (pass-if (true? (gr:peak-detector2-fb 0 0 0)))
@@ -309,7 +303,7 @@
 (pass-if (true? (gr:pll-refout-cc 0 0 0 0)))
 
 ;;; ./general/gr_pn_correlator_cc.h
-;; (pass-if (true? (gr:pn-correlator-cc 0 0 0))) FIXME: throws
+(pass-if (true? (gr:pn-correlator-cc 1 1 1)))
 
 ;;; ./general/gr_probe_avg_mag_sqrd_c.h
 (pass-if (true? (gr:probe-avg-mag-sqrd-c 0 0)))
@@ -345,7 +339,7 @@
 (pass-if (true? (gr:regenerate-bb 0 0)))
 
 ;;; ./general/gr_repeat.h
-;; (pass-if (true? (gr:repeat 0 0))) FIXME: throws
+(pass-if (true? (gr:repeat 1 1)))
 
 ;;; ./general/gr_rms_cf.h
 (pass-if (true? (gr:rms-cf 0)))
@@ -369,12 +363,10 @@
 (pass-if (true? (gr:simple-squelch-cc 0 0)))
 
 ;;; ./general/gr_skiphead.h
-;; (pass-if (true? (gr:skiphead 0 0))) FIXME: throws
+(pass-if (true? (gr:skiphead 1 1)))
 
-;;; ./general/gr_squash_ff.h
-;; gr_squash_ff_sptr gr_make_squash_ff(const std::vector<float> &igrid,
-;;                                     const std::vector<float> &ogrid);
-;; (pass-if (true? (gr:squash_ff )))
+;;; ./general/gr_squash_ff.h FIXME: not found
+;; (pass-if (true? (gr:squash_ff #(1.0 2.0) #(1.0 2.0))))
 
 ;;; ./general/gr_squelch_base_cc.h
 ;; (pass-if (true? (gr:squelch-base-cc "foo" 0 false))) FIXME: not found
@@ -383,24 +375,22 @@
 ;; (pass-if (true? (gr:squelch-base-ff "foo" 0 false))) FIXME: not found
 
 ;;; ./general/gr_stream_mux.h
-;; gr_make_stream_mux (size_t itemsize,
-;;              const std::vector<int> &lengths);
-;; (pass-if (true? (gr:stream_mux )))
+(pass-if (true? (gr:stream-mux 1 #(1 2))))
 
 ;;; ./general/gr_stream_to_streams.h
-;; (pass-if (true? (gr:stream-to-streams 0 0))) FIXME: throws
+(pass-if (true? (gr:stream-to-streams 1 1)))
 
 ;;; ./general/gr_stream_to_vector.h
-;; (pass-if (true? (gr:stream-to-vector 0 0))) FIXME: throws
+(pass-if (true? (gr:stream-to-vector 1 1)))
 
 ;;; ./general/gr_streams_to_stream.h
-;; (pass-if (true? (gr:streams-to-stream 0 0))) FIXME: throws
+(pass-if (true? (gr:streams-to-stream 1 1)))
 
 ;;; ./general/gr_streams_to_vector.h
-;; (pass-if (true? (gr:streams-to-vector 0 0))) FIXME: throws
+(pass-if (true? (gr:streams-to-vector 1 1)))
 
 ;;; ./general/gr_stretch_ff.h
-;; (pass-if (true? (gr:stretch-ff 0 0))) FIXME: throws
+(pass-if (true? (gr:stretch-ff 1 1)))
 
 ;;; ./general/gr_test.h
 (pass-if (true? (gr:test "foo" 1 1 1 1 1 1 1 1)))
@@ -409,7 +399,7 @@
 (pass-if (true? (gr:threshold-ff 0 0)))
 
 ;;; ./general/gr_throttle.h
-;; (pass-if (true? (gr:throttle 0 0)))  FIXME: throws
+(pass-if (true? (gr:throttle 1 1)))
 
 ;;; ./general/gr_uchar_to_float.h
 (pass-if (true? (gr:uchar-to-float)))
@@ -418,13 +408,13 @@
 (pass-if (true? (gr:vco-f 0 0 0)))
 
 ;;; ./general/gr_vector_to_stream.h
-;; (pass-if (true? (gr:vector-to-stream 0 0))) FIXME: throws
+(pass-if (true? (gr:vector-to-stream 1 1)))
 
 ;;; ./general/gr_vector_to_streams.h
-;; (pass-if (true? (gr:vector-to-streams 0 0))) FIXME: throws
+(pass-if (true? (gr:vector-to-streams 1 1)))
 
-;;; ./general/gr_wavelet_ff.h
-;; (pass-if (true? (gr:wavelet-ff 0 0))) FIXME: throws
+;;; ./general/gr_wavelet_ff.h FIXME: not found
+;; (pass-if (true? (gr:wavelet-ff 1024 20 true)))
 
 ;;; ./general/gr_wvps_ff.h
-;; (pass-if (true? (gr:wvps_ff 0))) FIXME: throws
+(pass-if (true? (gr:wvps-ff 2)))
-- 
cgit 


From ec44d0c5ad93dcbb145bbd77a4deff99af9d49bc Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 11:29:53 -0700
Subject: add stubs, nothing seems to exist

---
 gnuradio-core/src/guile/tests/filter_ctors.test | 251 +++++++++++++++++++-----
 1 file changed, 200 insertions(+), 51 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/filter_ctors.test b/gnuradio-core/src/guile/tests/filter_ctors.test
index 9ff251a55..8618890fa 100644
--- a/gnuradio-core/src/guile/tests/filter_ctors.test
+++ b/gnuradio-core/src/guile/tests/filter_ctors.test
@@ -31,69 +31,218 @@
 
 ;;; Add test code for all constructors in these files
 ;;;
-;;; ./filter/gr_adaptive_fir_ccf.h
-;;; ./filter/gr_cma_equalizer_cc.h
-;;; ./filter/gr_fft_filter_ccc.h
-;;; ./filter/gr_fft_filter_fff.h
-;;; ./filter/gr_filter_delay_fc.h
-;;; ./filter/gr_fir_ccc_generic.h
-;;; ./filter/gr_fir_ccc_simd.h
-;;; ./filter/gr_fir_ccc_x86.h
-;;; ./filter/gr_fir_ccf_generic.h
-;;; ./filter/gr_fir_ccf_simd.h
-;;; ./filter/gr_fir_ccf_x86.h
-;;; ./filter/gr_fir_fcc_generic.h
-;;; ./filter/gr_fir_fcc_simd.h
-;;; ./filter/gr_fir_fcc_x86.h
-;;; ./filter/gr_fir_fff_altivec.h
-;;; ./filter/gr_fir_fff_armv7_a.h
-;;; ./filter/gr_fir_fff_generic.h
-;;; ./filter/gr_fir_fff_simd.h
-;;; ./filter/gr_fir_fff_x86.h
-;;; ./filter/gr_fir_filter_ccc.h
-;;; ./filter/gr_fir_filter_ccf.h
-;;; ./filter/gr_fir_filter_fcc.h
-;;; ./filter/gr_fir_filter_fff.h
-;;; ./filter/gr_fir_filter_fsf.h
-;;; ./filter/gr_fir_filter_scc.h
-;;; ./filter/gr_fir_fsf_generic.h
-;;; ./filter/gr_fir_fsf_simd.h
-;;; ./filter/gr_fir_fsf_x86.h
-;;; ./filter/gr_fir_scc_generic.h
-;;; ./filter/gr_fir_scc_simd.h
-;;; ./filter/gr_fir_scc_x86.h
-;;; ./filter/gr_fir_sysconfig_armv7_a.h
-;;; ./filter/gr_fir_sysconfig_generic.h
-;;; ./filter/gr_fir_sysconfig_powerpc.h
-;;; ./filter/gr_fir_sysconfig_x86.h
-;;; ./filter/gr_fractional_interpolator_cc.h
-;;; ./filter/gr_fractional_interpolator_ff.h
-;;; ./filter/gr_freq_xlating_fir_filter_ccc.h
-;;; ./filter/gr_freq_xlating_fir_filter_ccf.h
-;;; ./filter/gr_freq_xlating_fir_filter_fcc.h
-;;; ./filter/gr_freq_xlating_fir_filter_fcf.h
-;;; ./filter/gr_freq_xlating_fir_filter_scc.h
-;;; ./filter/gr_freq_xlating_fir_filter_scf.h
-;;; ./filter/gr_goertzel_fc.h
-;;; ./filter/gr_hilbert_fc.h
-;;; ./filter/gr_iir_filter_ffd.h
-;;; ./filter/gr_interp_fir_filter_ccc.h
-;;; ./filter/gr_interp_fir_filter_ccf.h
-;;; ./filter/gr_interp_fir_filter_fcc.h
-;;; ./filter/gr_interp_fir_filter_fff.h
-;;; ./filter/gr_interp_fir_filter_fsf.h
+
+;;; ./filter/gr_adaptive_fir_ccf.h FIXME: not found
+;; gr_adaptive_fir_ccf(char *name, int decimation, const std::vector<float> &taps);
+;; (pass-if (true? (gr:adaptive-fir-ccf "foo" 0 #(1.0 2.0 3.0 4.0))))
+
+;;; ./filter/gr_cma_equalizer_cc.h FIXME: not found
+;; (pass-if (true? (gr:cma-equalizer-cc 0 0 0)))
+
+;;; ./filter/gr_fft_filter_ccc.h FIXME: not found
+;; (pass-if (true? (gr:fft-filter-ccc 0 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fft_filter_fff.h FIXME: not found
+;; (pass-if (true? (gr:fft-filter-fff 0 #(1.0 2.0))))
+
+;;; ./filter/gr_filter_delay_fc.h FIXME: not found
+;; (pass-if (true? (gr:filter-delay-fc #(1.0 2.0))))
+
+;;; ./filter/gr_fir_ccc_generic.h FIXME: not found
+;; (pass-if (true? (gr:fir-ccc-generic)))
+;; (pass-if (true? (gr:fir-ccc-generic #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_ccc_simd.h FIXME: not found
+;; (pass-if (true? (gr:fir-ccc-simd)))
+;; (pass-if (true? (gr:fir-ccc-simd #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_ccc_x86.h FIXME: not found
+;; (pass-if (true? (gr:fir-ccc-x86)))
+;; (pass-if (true? (gr:fir-ccc-x86 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_ccf_generic.h FIXME: not found
+;; (pass-if (true? (gr:fir-ccf-generic)))
+;; (pass-if (true? (gr:fir-ccf-generic #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_ccf_simd.h FIXME: not found
+;; (pass-if (true? (gr:fir-ccf-simd 0 0 0 0)))
+
+;;; ./filter/gr_fir_ccf_x86.h FIXME: not found
+;; (pass-if (true? (gr:fir-ccf-x86)))
+;; (pass-if (true? (gr:fir-ccf-x86 #(1.0 2.0))))
+
+;;; ./filter/gr_fir_fcc_generic.h FIXME: not found
+;; (pass-if (true? (gr:fir-fcc-generic)))
+;; (pass-if (true? (gr:fir-fcc-generic #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_fcc_simd.h FIXME: not found
+;; (pass-if (true? (gr:fir-fcc-simd 0 0 0 0)))
+
+;;; ./filter/gr_fir_fcc_x86.h FIXME: not found
+;; (pass-if (true? (gr:fir-fcc-x86)))
+;; (pass-if (true? (gr:fir-fcc-x86 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_fff_altivec.h FIXME: not found
+;; (pass-if (true? (gr:fir-fff-altivec)))
+;; (pass-if (true? (gr:fir-fff-altivec #(1.0 2.0))))
+
+;;; ./filter/gr_fir_fff_armv7_a.h FIXME: not found
+;; (pass-if (true? (gr:fir-fff-armv7-a)))
+;; (pass-if (true? (gr:fir-fff-armv7-a #(1.0 2.0))))
+
+;;; ./filter/gr_fir_fff_generic.h FIXME: not found
+;; (pass-if (true? (gr:fir-fff-generic)))
+;; (pass-if (true? (gr:fir-fff-generic #(1.0 2.0))))
+
+;;; ./filter/gr_fir_fff_simd.h FIXME: not found
+;; (pass-if (true? (gr:fir-fff-simd 0 0 0)))
+
+;;; ./filter/gr_fir_fff_x86.h FIXME: not found
+;; (pass-if (true? (gr:fir-fff-x86)))
+;; (pass-if (true? (gr:fir-fff-x86 #(1.0 2.0))))
+
+;;; ./filter/gr_fir_filter_ccc.h FIXME: not found
+;; (pass-if (true? (gr:fir-filter-ccc 1 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_filter_ccf.h FIXME: not found
+;; (pass-if (true? (gr:fir-filter-ccf 1 #(1.0 2.0))))
+
+;;; ./filter/gr_fir_filter_fcc.h FIXME: not found
+;; (pass-if (true? (gr:fir-filter-fcc 1 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_filter_fff.h FIXME: not found
+;; (pass-if (true? (gr:fir-filter-fff 1 #(1.0 2.0))))
+
+;;; ./filter/gr_fir_filter_fsf.h FIXME: not found
+;; (pass-if (true? (gr:fir-filter-fsf 1 #(1.0 2.0))))
+
+;;; ./filter/gr_fir_filter_scc.h FIXME: not found
+;; (pass-if (true? (gr:fir-filter-scc 1 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_fsf_generic.h FIXME: not found
+;; (pass-if (true? (gr:fir-fsf-generic)))
+;; (pass-if (true? (gr:fir-fsf-generic #(1.0 2.0))))
+
+;;; ./filter/gr_fir_fsf_simd.h FIXME: not found
+;; (pass-if (true? (gr:fir-fsf-simd 0 0 0)))
+
+;;; ./filter/gr_fir_fsf_x86.h FIXME: not found
+;; (pass-if (true? (gr:fir-fsf-x86)))
+;; (pass-if (true? (gr:fir-fsf-x86  #(1.0 2.0))))
+
+;;; ./filter/gr_fir_scc_generic.h FIXME: not found
+;; (pass-if (true? (gr:fir-scc-generic)))
+;; (pass-if (true? (gr:fir-scc-generic #(1+3i 23+5i))))
+ 
+;;; ./filter/gr_fir_scc_simd.h FIXME: not found
+;; (pass-if (true? (gr:fir-scc-simd)))
+;; (pass-if (true? (gr:fir-scc-simd #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_scc_x86.h FIXME: not found
+;; (pass-if (true? (gr:fir-scc-x86)))
+;; (pass-if (true? (gr:fir-scc-x86 #(1+3i 23+5i))))
+
+;;; ./filter/gr_fir_sysconfig_armv7_a.h FIXME: virtual methods
+;; (pass-if (true? (gr:fir-sysconfig-armv7-a )))
+
+;;; ./filter/gr_fir_sysconfig_generic.h FIXME: virtual methods
+;; (pass-if (true? (gr:fir-sysconfig-generic )))
+
+;;; ./filter/gr_fir_sysconfig_powerpc.h FIXME: virtual methods
+;; (pass-if (true? (gr:fir-sysconfig-powerpc )))
+
+;;; ./filter/gr_fir_sysconfig_x86.h FIXME: virtual methods
+;; (pass-if (true? (gr:fir-sysconfig-x86 )))
+
+;;; ./filter/gr_fractional_interpolator_cc.h FIXME: not found
+;; (pass-if (true? (gr:fractional-interpolator-cc 1.0 1.0)))
+
+;;; ./filter/gr_fractional_interpolator_ff.h FIXME: not found
+;; (pass-if (true? (gr:fractional-interpolator-ff 1.0 1.0)))
+
+;;; ./filter/gr_freq_xlating_fir_filter_ccc.h FIXME: not found
+;; (pass-if (true? (gr:freq-xlating-fir-filter-ccc 1.0 1.0)))
+
+;;; ./filter/gr_freq_xlating_fir_filter_ccf.h FIXME: not found
+;; (pass-if (true? (gr:freq-xlating-fir-filter-ccf 1.0 1.0)))
+
+;;; ./filter/gr_freq_xlating_fir_filter_fcc.h FIXME: not found
+;; (pass-if (true? (gr:freq-xlating-fir-filter-fcc 1.0 1.0)))
+
+;;; ./filter/gr_freq_xlating_fir_filter_fcf.h FIXME: not found
+;; (pass-if (true? (gr:freq-xlating-fir-filter-fcf 1.0 1.0)))
+
+;;; ./filter/gr_freq_xlating_fir_filter_scc.h FIXME: not found
+;; (pass-if (true? (gr:freq-xlating-fir-filter-scc 1.0 1.0)))
+
+;;; ./filter/gr_freq_xlating_fir_filter_scf.h FIXME: not found
+;; (pass-if (true? (gr:freq-xlating-fir-filter-scf 1.0 1.0)))
+
+;;; ./filter/gr_goertzel_fc.h FIXME: not found
+;; (pass-if (true? (gr:goertzel-fc 1 1 1)))
+
+;;; ./filter/gr_hilbert_fc.h FIXME: not found
+;; (pass-if (true? (gr:hilbert-fc )))
+
+;;; ./filter/gr_iir_filter_ffd.h FIXME: not found
+;; (pass-if (true? (gr:iir-filter-ffd )))
+
+;;; ./filter/gr_interp_fir_filter_ccc.h FIXME: not found
+;; (pass-if (true? (gr:interp-fir-filter-ccc )))
+
+;;; ./filter/gr_interp_fir_filter_ccf.h FIXME: not found
+;; (pass-if (true? (gr:interp-fir-filter-ccf )))
+
+;;; ./filter/gr_interp_fir_filter_fcc.h FIXME: not found
+;; (pass-if (true? (gr:interp-fir-filter-fcc )))
+
+;;; ./filter/gr_interp_fir_filter_fff.h FIXME: not found
+;; (pass-if (true? (gr:interp-fir-filter-fff )))
+
+;;; ./filter/gr_interp_fir_filter_fsf.h FIXME: not found
+;; (pass-if (true? (gr:interp-fir-filter-fsf )))
+
 ;;; ./filter/gr_interp_fir_filter_scc.h
+;; (pass-if (true? (gr:interp-fir-filter-scc )))
+
 ;;; ./filter/gr_pfb_arb_resampler_ccf.h
+;; (pass-if (true? (gr:pfb-arb-resampler-ccf )))
+
 ;;; ./filter/gr_pfb_channelizer_ccf.h
+;; (pass-if (true? (gr:pfb-channelizer-ccf )))
+
 ;;; ./filter/gr_pfb_clock_sync_ccf.h
+;; (pass-if (true? (gr:pfb-clock-sync-ccf )))
+
 ;;; ./filter/gr_pfb_clock_sync_fff.h
+;; (pass-if (true? (gr:pfb-clock-sync-fff )))
+
 ;;; ./filter/gr_pfb_decimator_ccf.h
+;; (pass-if (true? (gr:pfb-decimator-ccf )))
+
 ;;; ./filter/gr_pfb_interpolator_ccf.h
+;; (pass-if (true? (gr:pfb-interpolator-ccf )))
+
 ;;; ./filter/gr_rational_resampler_base_ccc.h
+;; (pass-if (true? (gr:rational-resampler-base-ccc )))
+
 ;;; ./filter/gr_rational_resampler_base_ccf.h
+;; (pass-if (true? (gr:rational-resampler-base-ccf )))
+
 ;;; ./filter/gr_rational_resampler_base_fcc.h
+;; (pass-if (true? (gr:rational-resampler-base-fcc )))
+
 ;;; ./filter/gr_rational_resampler_base_fff.h
+;; (pass-if (true? (gr:rational-resampler-base-fff )))
+
 ;;; ./filter/gr_rational_resampler_base_fsf.h
+;; (pass-if (true? (gr:rational-resampler-base-fsf )))
+
 ;;; ./filter/gr_rational_resampler_base_scc.h
+;; (pass-if (true? (gr:rational-resampler-base-scc )))
+
 ;;; ./filter/gr_single_pole_iir_filter_cc.h
+;; (pass-if (true? (gr:single-pole-iir-filter-cc )))
+
 ;;; ./filter/gr_single_pole_iir_filter_ff.h
+;; (pass-if (true? (gr:single-pole-iir-filter-ff )))
-- 
cgit 


From c4b880a4d6fcd21da17191a7a4f6f0db7dff95e3 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 10 Nov 2010 11:32:34 -0700
Subject: comment out the two failures

---
 gnuradio-core/src/guile/tests/general_ctors.test | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 6153ce795..d9f44a12d 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -76,13 +76,13 @@
 ;;; ./general/gr_check_lfsr_32k_s.h FIXME: not found
 ;; (pass-if (true? (gr:check-lfsr-2k-s)))
 
-;;; ./general/gr_clock_recovery_mm_cc.h
+;;; ./general/gr_clock_recovery_mm_cc.h FIXME: throw test fails
 (pass-if (true? (gr:clock-recovery-mm-cc 1 1 1 1 1)))
-;; (pass-if-throw "confirm throw gr:clock-recovery-mm-cc" #t (true? (gr:clock-recovery-mm-cc 0 0 0 0 0))) FIXME: segfault
+;; (pass-if-throw "confirm throw gr:clock-recovery-mm-cc" #t (true? (gr:clock-recovery-mm-cc 1 1 1 1 1)))
 
-;;; ./general/gr_clock_recovery_mm_ff.h
+;;; ./general/gr_clock_recovery_mm_ff.h FIXME: throw test fails
 (pass-if (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
-(pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
+;; (pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
 
 ;;; ./general/gr_complex_to_interleaved_short.h
 (pass-if (true? (gr:complex-to-interleaved-short)))
-- 
cgit 


From b7667afd81b8303a542204ac05ffa969519702af Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 14 Nov 2010 09:05:16 -0800
Subject: Fixed as many problems in general_ctors.test as I could quickly.

---
 gnuradio-core/src/guile/tests/general_ctors.test | 111 +++++++++++------------
 1 file changed, 51 insertions(+), 60 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index d9f44a12d..5cdff5c3f 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -54,12 +54,12 @@
 ;;; ./general/gr_agc_ff.h
 (pass-if (true? (gr:agc-ff 0 0 0 0)))
 
-;;; ./general/gr_align_on_samplenumbers_ss.h FIXME: throws
+;;; ./general/gr_align_on_samplenumbers_ss.h
 (pass-if (true? (gr:align-on-samplenumbers-ss 2 128)))
-;; (pass-if-throw "confirm throw gr:align-on-samplenumbers-ss" #t (true? (gr:align-on-samplenumbers-ss 0 0)))
+(pass-if-throw "confirm throw gr:align-on-samplenumbers-ss" #t (true? (gr:align-on-samplenumbers-ss 0 0)))
 
-;;; ./general/gr_bin_statistics_f.h FIXME: not found
-;; (pass-if (true? (gr:bin-statistics-f 0 0 0 0 0)))
+;;; ./general/gr_bin_statistics_f.h WONTFIX: requires gr_feval_dd & swig directors
+;;;(pass-if (true? (gr:bin-statistics-f 1 (gr:msg-queue) 0 0 0)))
 
 ;;; ./general/gr_binary_slicer_fb.h
 (pass-if (true? (gr:binary-slicer-fb)))
@@ -70,19 +70,19 @@
 ;;; ./general/gr_char_to_float.h
 (pass-if (true? (gr:char-to-float)))
 
-;;; ./general/gr_check_counting_s.h FIXME: not found
-;; (pass-if (true? (gr:check-counting-s false)))
+;;; ./general/gr_check_counting_s.h
+(pass-if (true? (gr:check-counting-s #f)))
 
-;;; ./general/gr_check_lfsr_32k_s.h FIXME: not found
-;; (pass-if (true? (gr:check-lfsr-2k-s)))
+;;; ./general/gr_check_lfsr_32k_s.h
+(pass-if (true? (gr:check-lfsr-32k-s)))
 
-;;; ./general/gr_clock_recovery_mm_cc.h FIXME: throw test fails
+;;; ./general/gr_clock_recovery_mm_cc.h
 (pass-if (true? (gr:clock-recovery-mm-cc 1 1 1 1 1)))
-;; (pass-if-throw "confirm throw gr:clock-recovery-mm-cc" #t (true? (gr:clock-recovery-mm-cc 1 1 1 1 1)))
+(pass-if-throw "confirm throw gr:clock-recovery-mm-cc" #t (true? (gr:clock-recovery-mm-cc -1 1 1 1 1)))
 
-;;; ./general/gr_clock_recovery_mm_ff.h FIXME: throw test fails
+;;; ./general/gr_clock_recovery_mm_ff.h
 (pass-if (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
-;; (pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff 1 1 1 1 1)))
+(pass-if-throw "confirm throw gr:clock-recovery-mm-ff" #t (true? (gr:clock-recovery-mm-ff -1 1 1 1 1)))
 
 ;;; ./general/gr_complex_to_interleaved_short.h
 (pass-if (true? (gr:complex-to-interleaved-short)))
@@ -98,17 +98,19 @@
 ;;; ./general/gr_conjugate_cc.h
 (pass-if (true? (gr:conjugate-cc)))
 
-;;; ./general/gr_constellation_decoder_cb.h FIXME: not found
+;;; ./general/gr_constellation_decoder_cb.h FIXME: wrong-arg-type (not sure why...)
 ;gr_constellation_decoder_cb (const std::vector<gr_complex> &sym_position, 
 ;                               const std::vector<unsigned char> &sym_value_out);
-;; (pass-if (true? (gr:constellation_decoder_cb #(1+3i 23+5i) #(1 2))))
+;; (pass-if (true? (gr:constellation-decoder-cb #(2+3i 23+5i) #(0 1))))
 
 ;;; ./general/gr_copy.h
 (pass-if (true? (gr:copy 1)))
 
 ;;; ./general/gr_correlate_access_code_bb.h
 (pass-if (true? (gr:correlate-access-code-bb "foo" 0)))
-;; (pass-if-throw "confirm throw correlate-access-code-bb" #t (true? (gr:correlate-access-code-bb "foo" -1))) FIXME: throws
+(pass-if-throw "confirm throw correlate-access-code-bb" #t
+  (true? (gr:correlate-access-code-bb
+	  "00000000000000000000000000000000000000000000000000000000000000000" 0)))
 
 ;;; ./general/gr_costas_loop_cc.h
 (pass-if (true? (gr:costas-loop-cc 0 0 0 0 2)))
@@ -117,8 +119,8 @@
 ;;; ./general/gr_cpfsk_bc.h
 (pass-if (true? (gr:cpfsk-bc 1 1 1)))
 
-;;; ./general/gr_ctcss_squelch_ff.h FIXME: not found
-;; (pass-if (true? (gr:ctcss-squelch-ff 0 0 0 0 0 true)))
+;;; ./general/gr_ctcss_squelch_ff.h
+(pass-if (true? (gr:ctcss-squelch-ff 0 0 0 0 0 #t)))
 
 ;;; ./general/gr_decode_ccsds_27_fb.h
 (pass-if (true? (gr:decode-ccsds-27-fb)))
@@ -147,22 +149,20 @@
 ;;; ./general/gr_encode_ccsds_27_bb.h
 (pass-if (true? (gr:encode-ccsds-27-bb)))
 
-;;; ./general/gr_fake_channel_coder_pp.h FIXME: not found
-;; (pass-if (true? (gr:fake-channel-coder-pp 1 1)))
-;; (pass-if-throw "confirm throw" #t (true? (gr:fake-channel-coder-pp -1 1)))
+;;; ./general/gr_fake_channel_coder_pp.h FIXME: file name doesn't match class name
+(pass-if (true? (gr:fake-channel-encoder-pp 1 1)))
+(pass-if-throw "confirm throw" #t (true? (gr:fake-channel-encoder-pp -1 1)))
 
 ;;; ./general/gr_feedforward_agc_cc.h
 (pass-if (true? (gr:feedforward-agc-cc 1 1)))
 
-;;; ./general/gr_fft_vcc.h FIXME: not found
-;; (pass-if (true? (gr:fft-vcc 1 false #(1.0 2.0) true)))
+;;; ./general/gr_fft_vcc.h
+(pass-if (true? (gr:fft-vcc 1 #f #(1.0 2.0) #t)))
 
-;;; ./general/gr_fft_vcc_fftw.h FIXME: not found
-;; (pass-if (true? (gr:fft-vcc-fftw 1 #(1.0 2.0) false)))
-
-;;; ./general/gr_fft_vfc.h FIXME: not found
+;;; ./general/gr_fft_vfc.h
 ;; bool set_window(const std::vector<float> &window);
-;; (pass-if (true? (gr:fft_vfc #(1.0 2.0))))
+(pass-if (true? (gr:fft-vfc 4 #t #(1.0 2.0 3.0 4.0))))
+(pass-if-throw "confirm throw gr:fft-vfc" #t (true? (gr:fft-vfc 4 #f #(1.0 2.0 3.0 4.0))))
 
 ;;; ./general/gr_fll_band_edge_cc.h
 (pass-if (true? (gr:fll-band-edge-cc 0 0 0 0 0)))
@@ -182,19 +182,19 @@
 ;;; ./general/gr_fmdet_cf.h
 (pass-if (true? (gr:fmdet-cf 0 0 0 0)))
 
-;;; ./general/gr_framer_sink_1.h FIXME: not found
-;; (pass-if (true? (gr:framer-sink-1)))
+;;; ./general/gr_framer_sink_1.h
+(pass-if (true? (gr:framer-sink-1 (gr:msg-queue))))
 
 ;;; ./general/gr_frequency_modulator_fc.h
 (pass-if (true? (gr:frequency-modulator-fc 0)))
 
-;;; ./general/gr_glfsr_source_b.h FIXME: not found
-;; (pass-if (true? (gr: glfsr-source-b 0 true 0 0)))
-;; (pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_b 33 true 0 0)))
+;;; ./general/gr_glfsr_source_b.h
+(pass-if (true? (gr:glfsr-source-b 1 #t 0 1)))
+(pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_b 33 #t 0 0)))
 
-;;; ./general/gr_glfsr_source_f.h FIXME: not found
-;; (pass-if (true? (gr:glfsr-source-f 1 true 1 1)))
-;; (pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_f 33 true 0 0)))
+;;; ./general/gr_glfsr_source_f.h
+(pass-if (true? (gr:glfsr-source-f 1 #t 1 1)))
+(pass-if-throw "confirm throw" #t (true? (gr:glfsr_source_f 33 #t 0 0)))
 
 ;;; ./general/gr_head.h
 (pass-if (true? (gr:head 1 1)))
@@ -205,9 +205,6 @@
 ;;; ./general/gr_interleaved_short_to_complex.h
 (pass-if (true? (gr:interleaved-short-to-complex)))
 
-;;; ./general/gr_iqcomp_cc.h FIXME: not found
-;; (pass-if (true? (gr:iqcomp-cc 1 1)))
-
 ;;; ./general/gr_keep_one_in_n.h
 (pass-if (true? (gr:keep-one-in-n 1 1)))
 
@@ -242,16 +239,10 @@
 ;;; ./general/gr_null_source.h
 (pass-if (true? (gr:null-source 1)))
 
-;;; ./general/gr_ofdm_bpsk_demapper.h FIXME: not found
-;; (pass-if (true? (gr:ofdm-bpsk-demapper 1)))
-
 ;;; ./general/gr_ofdm_cyclic_prefixer.h
 (pass-if (true? (gr:ofdm-cyclic-prefixer 1 1)))
 
-;;; ./general/gr_ofdm_demapper_vcb.h FIXME: not found
-;; (pass-if (true? (gr:ofdm-mapper-bcv 1 1)))
-
-;;; ./general/gr_ofdm_frame_acquisition.h FIXME: not found
+;;; ./general/gr_ofdm_frame_acquisition.h FIXME: "No matching method for generic function `ofdm_frame_acquisition'"
 ;; gr_ofdm_frame_acquisition (unsigned int occupied_carriers,
 ;;                              unsigned int fft_length,
 ;;                              unsigned int cplen,
@@ -259,17 +250,17 @@
 ;;                              unsigned int max_fft_shift_len);
 ;; (pass-if (true? (gr:ofdm-frame-acquisition 0 0 0 #(1+3i 23+5i) 0)))
 
-;;; ./general/gr_ofdm_frame_sink.h FIXME: not found
+;;; ./general/gr_ofdm_frame_sink.h FIXME: "No matching method for generic function `ofdm_frame_sink'"
 ;; gr_ofdm_frame_sink(const std::vector<gr_complex> &sym_position, 
 ;;                      const std::vector<unsigned char> &sym_value_out,
 ;;                      gr_msg_queue_sptr target_queue, unsigned int occupied_tones,
 ;;                      float phase_gain, float freq_gain);
-;; (pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(1 2) 1 1 0.25 0)))
+;;(pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(1 2) (gr:msg-queue) 1 0.25 0)))
 
 ;;; ./general/gr_ofdm_insert_preamble.h FIXME: Wrong type argument in position ~A:
 ;; gr_ofdm_insert_preamble(int fft_length,
 ;;                           const std::vector<std::vector<gr_complex> > &preamble);
-;; (pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i) #(1+3i 23+5i)))))
+;;(pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i)))))
 
 ;;; ./general/gr_ofdm_mapper_bcv.h FIXME: Wrong type argument in position ~A:
 ;; gr_ofdm_mapper_bcv (const std::vector<gr_complex> &constellation,
@@ -284,8 +275,8 @@
 ;;; ./general/gr_pa_2x2_phase_combiner.h
 (pass-if (true? (gr:pa-2x2-phase-combiner)))
 
-;;; ./general/gr_packet_sink.h FIXME: not found
-;; (pass-if (true? (gr:packet-sink #(1 2) 1 -1)))
+;;; ./general/gr_packet_sink.h
+(pass-if (true? (gr:packet-sink #(1 2) (gr:msg-queue) -1)))
 
 ;;; ./general/gr_peak_detector2_fb.h
 (pass-if (true? (gr:peak-detector2-fb 0 0 0)))
@@ -324,10 +315,10 @@
 (pass-if (true? (gr:probe-signal-f)))
 
 ;;; ./general/gr_pwr_squelch_cc.h
-;; (pass-if (true? (gr:pwr-squelch-cc 0 0 0 0))) FIXME: not found
+(pass-if (true? (gr:pwr-squelch-cc 0 0 0 #f)))
 
 ;;; ./general/gr_pwr_squelch_ff.h
-;; (pass-if (true? (gr:pwr-squelch-ff 0.0 0.0 0 false)))  FIXME: not found
+(pass-if (true? (gr:pwr-squelch-ff 0.0 0.0 0 #f)))
 
 ;;; ./general/gr_quadrature_demod_cf.h
 (pass-if (true? (gr:quadrature-demod-cf 0)))
@@ -365,14 +356,14 @@
 ;;; ./general/gr_skiphead.h
 (pass-if (true? (gr:skiphead 1 1)))
 
-;;; ./general/gr_squash_ff.h FIXME: not found
-;; (pass-if (true? (gr:squash_ff #(1.0 2.0) #(1.0 2.0))))
+;;; ./general/gr_squash_ff.h
+(pass-if (true? (gr:squash-ff #(1.0 2.0 3.0 4.0 5.0) #(1.0 2.0 3.0 4.0 5.0))))
 
-;;; ./general/gr_squelch_base_cc.h
-;; (pass-if (true? (gr:squelch-base-cc "foo" 0 false))) FIXME: not found
+;;; ./general/gr_squelch_base_cc.h WONTFIX: not wrapped
+;;; (pass-if (true? (gr:squelch-base-cc "foo" 0 #f)))
 
-;;; ./general/gr_squelch_base_ff.h
-;; (pass-if (true? (gr:squelch-base-ff "foo" 0 false))) FIXME: not found
+;;; ./general/gr_squelch_base_ff.h WONTFIX: not wrapped
+;; (pass-if (true? (gr:squelch-base-ff "foo" 0 #f)))
 
 ;;; ./general/gr_stream_mux.h
 (pass-if (true? (gr:stream-mux 1 #(1 2))))
@@ -413,8 +404,8 @@
 ;;; ./general/gr_vector_to_streams.h
 (pass-if (true? (gr:vector-to-streams 1 1)))
 
-;;; ./general/gr_wavelet_ff.h FIXME: not found
-;; (pass-if (true? (gr:wavelet-ff 1024 20 true)))
+;;; ./general/gr_wavelet_ff.h
+(pass-if (true? (gr:wavelet-ff 1024 20 #t)))
 
 ;;; ./general/gr_wvps_ff.h
 (pass-if (true? (gr:wvps-ff 2)))
-- 
cgit 


From 48f6c8b4c398b7ee18ee4292ae20d4f4c1dd3087 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 14 Nov 2010 12:25:23 -0800
Subject: Move true? from general_ctors.test to core.scm

---
 gnuradio-core/src/guile/tests/general_ctors.test | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 5cdff5c3f..75c0f0bd4 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -29,10 +29,6 @@
 (use-modules (gnuradio core))
 (use-modules (oop goops))
 
-;;; Return #t if x is not #f
-(define (true? x)
-  (and x #t))
-
 ;;; Add test code for all constructors in these files
 
 ;;; ./general/gr_additive_scrambler_bb.h
-- 
cgit 


From eedcd7145c20403dcd0dcc44d15efb5d82beb7ec Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 14 Nov 2010 13:15:26 -0800
Subject: Make cma-equalizer-cc test work

---
 gnuradio-core/src/guile/tests/filter_ctors.test | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/filter_ctors.test b/gnuradio-core/src/guile/tests/filter_ctors.test
index 8618890fa..6a35bd296 100644
--- a/gnuradio-core/src/guile/tests/filter_ctors.test
+++ b/gnuradio-core/src/guile/tests/filter_ctors.test
@@ -32,12 +32,12 @@
 ;;; Add test code for all constructors in these files
 ;;;
 
-;;; ./filter/gr_adaptive_fir_ccf.h FIXME: not found
+;;; ./filter/gr_adaptive_fir_ccf.h WONTFIX: not wrapped
 ;; gr_adaptive_fir_ccf(char *name, int decimation, const std::vector<float> &taps);
 ;; (pass-if (true? (gr:adaptive-fir-ccf "foo" 0 #(1.0 2.0 3.0 4.0))))
 
-;;; ./filter/gr_cma_equalizer_cc.h FIXME: not found
-;; (pass-if (true? (gr:cma-equalizer-cc 0 0 0)))
+;;; ./filter/gr_cma_equalizer_cc.h
+(pass-if (true? (gr:cma-equalizer-cc 0 0 0)))
 
 ;;; ./filter/gr_fft_filter_ccc.h FIXME: not found
 ;; (pass-if (true? (gr:fft-filter-ccc 0 #(1+3i 23+5i))))
-- 
cgit 


From f2d5299a3f7dd5baa795a27c2864b2cfe67edb37 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Sun, 14 Nov 2010 13:26:59 -0800
Subject: Add tests that show that vector<complex<float>> is not working...

---
 gnuradio-core/src/guile/tests/general_ctors.test | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 75c0f0bd4..a18766400 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -28,6 +28,28 @@
 (use-modules (gnuradio test-suite lib))
 (use-modules (gnuradio core))
 (use-modules (oop goops))
+(use-modules (ice-9 format))
+
+
+(define (verbose-equal? expected actual)
+  (cond ((equal? expected actual) #t)
+	(else
+	 (format #t "Expected:\n~y\n" expected)
+	 (format #t "Actual:\n~y\n" actual)
+	 #f)))
+
+
+;;; Test complex<float> scalars
+(pass-if (equal? 5.0+5.0i (gr:complex-scalar-test0)))
+(pass-if (equal? 1.5+0.5i (gr:complex-scalar-test1 1+1i)))
+
+;;; Test complex<float> vectors
+(pass-if (verbose-equal? #(0+0i 1+1i 2+2i 3+3i 4+4i)
+			 (gr:complex-vec-test0)))
+
+(pass-if (verbose-equal? #(1.5+0.5i 2.5+1.5i 3.5+2.5i)
+			 (gr:complex-vec-test1 #(1+1i 2+2i 3+3i))))
+
 
 ;;; Add test code for all constructors in these files
 
-- 
cgit 


From 18da1655fe25b7517577a9417c2304edbc3afdca Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 17 Nov 2010 20:41:49 -0700
Subject: enable more tests

---
 gnuradio-core/src/guile/tests/filter_ctors.test  | 116 +++++++++++------------
 gnuradio-core/src/guile/tests/general_ctors.test |  33 ++-----
 gnuradio-core/src/guile/tests/gengen_ctors.test  |  43 ++++-----
 gnuradio-core/src/guile/tests/hier_ctors.test    |   4 +-
 gnuradio-core/src/guile/tests/io_ctors.test      |  10 +-
 5 files changed, 92 insertions(+), 114 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/filter_ctors.test b/gnuradio-core/src/guile/tests/filter_ctors.test
index 6a35bd296..ee851b6e0 100644
--- a/gnuradio-core/src/guile/tests/filter_ctors.test
+++ b/gnuradio-core/src/guile/tests/filter_ctors.test
@@ -39,17 +39,17 @@
 ;;; ./filter/gr_cma_equalizer_cc.h
 (pass-if (true? (gr:cma-equalizer-cc 0 0 0)))
 
-;;; ./filter/gr_fft_filter_ccc.h FIXME: not found
-;; (pass-if (true? (gr:fft-filter-ccc 0 #(1+3i 23+5i))))
+;;; ./filter/gr_fft_filter_ccc.h
+(pass-if (true? (gr:fft-filter-ccc 0 #(1+3i 23+5i))))
 
-;;; ./filter/gr_fft_filter_fff.h FIXME: not found
-;; (pass-if (true? (gr:fft-filter-fff 0 #(1.0 2.0))))
+;;; ./filter/gr_fft_filter_fff.h
+(pass-if (true? (gr:fft-filter-fff 0 #(1.0 2.0))))
 
-;;; ./filter/gr_filter_delay_fc.h FIXME: not found
-;; (pass-if (true? (gr:filter-delay-fc #(1.0 2.0))))
+;;; ./filter/gr_filter_delay_fc.h
+(pass-if (true? (gr:filter-delay-fc #(1.0 2.0))))
 
-;;; ./filter/gr_fir_ccc_generic.h FIXME: not found
-;; (pass-if (true? (gr:fir-ccc-generic)))
+;;; ./filter/gr_fir_ccc_generic. FIXME: Unbound variable: ~S" (gr:fir-ccc-generic) #f))
+;;  (pass-if (true? (gr:fir-ccc-generic)))
 ;; (pass-if (true? (gr:fir-ccc-generic #(1+3i 23+5i))))
 
 ;;; ./filter/gr_fir_ccc_simd.h FIXME: not found
@@ -104,41 +104,41 @@
 ;;; ./filter/gr_fir_filter_ccc.h FIXME: not found
 ;; (pass-if (true? (gr:fir-filter-ccc 1 #(1+3i 23+5i))))
 
-;;; ./filter/gr_fir_filter_ccf.h FIXME: not found
-;; (pass-if (true? (gr:fir-filter-ccf 1 #(1.0 2.0))))
+;;; ./filter/gr_fir_filter_ccf.h
+(pass-if (true? (gr:fir-filter-ccf 1 #(1.0 2.0))))
 
-;;; ./filter/gr_fir_filter_fcc.h FIXME: not found
-;; (pass-if (true? (gr:fir-filter-fcc 1 #(1+3i 23+5i))))
+;;; ./filter/gr_fir_filter_fcc.h
+(pass-if (true? (gr:fir-filter-fcc 1 #(1+3i 23+5i))))
 
-;;; ./filter/gr_fir_filter_fff.h FIXME: not found
-;; (pass-if (true? (gr:fir-filter-fff 1 #(1.0 2.0))))
+;;; ./filter/gr_fir_filter_fff.h
+(pass-if (true? (gr:fir-filter-fff 1 #(1.0 2.0))))
 
-;;; ./filter/gr_fir_filter_fsf.h FIXME: not found
-;; (pass-if (true? (gr:fir-filter-fsf 1 #(1.0 2.0))))
+;;; ./filter/gr_fir_filter_fsf.h
+(pass-if (true? (gr:fir-filter-fsf 1 #(1.0 2.0))))
 
-;;; ./filter/gr_fir_filter_scc.h FIXME: not found
-;; (pass-if (true? (gr:fir-filter-scc 1 #(1+3i 23+5i))))
+;;; ./filter/gr_fir_filter_scc.h
+(pass-if (true? (gr:fir-filter-scc 1 #(1+3i 23+5i))))
 
-;;; ./filter/gr_fir_fsf_generic.h FIXME: not found
+;;; ./filter/gr_fir_fsf_generic.h FIXME: "Unbound variable: ~S" (gr:fir-fsf-generic) #f))
 ;; (pass-if (true? (gr:fir-fsf-generic)))
 ;; (pass-if (true? (gr:fir-fsf-generic #(1.0 2.0))))
 
 ;;; ./filter/gr_fir_fsf_simd.h FIXME: not found
 ;; (pass-if (true? (gr:fir-fsf-simd 0 0 0)))
 
-;;; ./filter/gr_fir_fsf_x86.h FIXME: not found
+;;; ./filter/gr_fir_fsf_x86.h FIXME: "Unbound variable: ~S" (gr:fir-fsf-x86) #f))
 ;; (pass-if (true? (gr:fir-fsf-x86)))
 ;; (pass-if (true? (gr:fir-fsf-x86  #(1.0 2.0))))
 
-;;; ./filter/gr_fir_scc_generic.h FIXME: not found
+;;; ./filter/gr_fir_scc_generic.h FIXME: file not found
 ;; (pass-if (true? (gr:fir-scc-generic)))
 ;; (pass-if (true? (gr:fir-scc-generic #(1+3i 23+5i))))
  
-;;; ./filter/gr_fir_scc_simd.h FIXME: not found
+;;; ./filter/gr_fir_scc_simd.h FIXME: Unbound variable: ~S" (gr:fir-scc-simd) #f))
 ;; (pass-if (true? (gr:fir-scc-simd)))
 ;; (pass-if (true? (gr:fir-scc-simd #(1+3i 23+5i))))
 
-;;; ./filter/gr_fir_scc_x86.h FIXME: not found
+;;; ./filter/gr_fir_scc_x86.h FIXME: "Unbound variable: ~S" (gr:fir-scc-x86) #f))
 ;; (pass-if (true? (gr:fir-scc-x86)))
 ;; (pass-if (true? (gr:fir-scc-x86 #(1+3i 23+5i))))
 
@@ -152,97 +152,97 @@
 ;; (pass-if (true? (gr:fir-sysconfig-powerpc )))
 
 ;;; ./filter/gr_fir_sysconfig_x86.h FIXME: virtual methods
-;; (pass-if (true? (gr:fir-sysconfig-x86 )))
+;; (pass-if (true? (gr:fir-sysconfig-x86 #(1+3i 23+5i))))
 
-;;; ./filter/gr_fractional_interpolator_cc.h FIXME: not found
+;;; ./filter/gr_fractional_interpolator_cc.h FIXME: file not found
 ;; (pass-if (true? (gr:fractional-interpolator-cc 1.0 1.0)))
 
-;;; ./filter/gr_fractional_interpolator_ff.h FIXME: not found
+;;; ./filter/gr_fractional_interpolator_ff.h FIXME: file not found
 ;; (pass-if (true? (gr:fractional-interpolator-ff 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_ccc.h FIXME: not found
+;;; ./filter/gr_freq_xlating_fir_filter_ccc.h FIXME: file not found
 ;; (pass-if (true? (gr:freq-xlating-fir-filter-ccc 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_ccf.h FIXME: not found
+;;; ./filter/gr_freq_xlating_fir_filter_ccf.h FIXME: file not found
 ;; (pass-if (true? (gr:freq-xlating-fir-filter-ccf 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_fcc.h FIXME: not found
+;;; ./filter/gr_freq_xlating_fir_filter_fcc.h FIXME: file not found
 ;; (pass-if (true? (gr:freq-xlating-fir-filter-fcc 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_fcf.h FIXME: not found
+;;; ./filter/gr_freq_xlating_fir_filter_fcf.h FIXME: file not found
 ;; (pass-if (true? (gr:freq-xlating-fir-filter-fcf 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_scc.h FIXME: not found
+;;; ./filter/gr_freq_xlating_fir_filter_scc.h FIXME: file not found
 ;; (pass-if (true? (gr:freq-xlating-fir-filter-scc 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_scf.h FIXME: not found
+;;; ./filter/gr_freq_xlating_fir_filter_scf.h FIXME: file not found
 ;; (pass-if (true? (gr:freq-xlating-fir-filter-scf 1.0 1.0)))
 
-;;; ./filter/gr_goertzel_fc.h FIXME: not found
-;; (pass-if (true? (gr:goertzel-fc 1 1 1)))
+;;; ./filter/gr_goertzel_fc.h
+(pass-if (true? (gr:goertzel-fc 1 1 1)))
 
-;;; ./filter/gr_hilbert_fc.h FIXME: not found
-;; (pass-if (true? (gr:hilbert-fc )))
+;;; ./filter/gr_hilbert_fc.h
+(pass-if (true? (gr:hilbert-fc 1)))
 
-;;; ./filter/gr_iir_filter_ffd.h FIXME: not found
-;; (pass-if (true? (gr:iir-filter-ffd )))
+;;; ./filter/gr_iir_filter_ffd.h
+(pass-if (true? (gr:iir-filter-ffd #(1.0 2.0) #(1.0 2.0))))
 
-;;; ./filter/gr_interp_fir_filter_ccc.h FIXME: not found
+;;; ./filter/gr_interp_fir_filter_ccc.h FIXME: file not found
 ;; (pass-if (true? (gr:interp-fir-filter-ccc )))
 
-;;; ./filter/gr_interp_fir_filter_ccf.h FIXME: not found
+;;; ./filter/gr_interp_fir_filter_ccf.h FIXME: file not found
 ;; (pass-if (true? (gr:interp-fir-filter-ccf )))
 
-;;; ./filter/gr_interp_fir_filter_fcc.h FIXME: not found
+;;; ./filter/gr_interp_fir_filter_fcc.h FIXME: file not found
 ;; (pass-if (true? (gr:interp-fir-filter-fcc )))
 
-;;; ./filter/gr_interp_fir_filter_fff.h FIXME: not found
+;;; ./filter/gr_interp_fir_filter_fff.h FIXME: file not found
 ;; (pass-if (true? (gr:interp-fir-filter-fff )))
 
-;;; ./filter/gr_interp_fir_filter_fsf.h FIXME: not found
+;;; ./filter/gr_interp_fir_filter_fsf.h FIXME: file not found
 ;; (pass-if (true? (gr:interp-fir-filter-fsf )))
 
-;;; ./filter/gr_interp_fir_filter_scc.h
+;;; ./filter/gr_interp_fir_filter_scc.h FIXME: file not found
 ;; (pass-if (true? (gr:interp-fir-filter-scc )))
 
 ;;; ./filter/gr_pfb_arb_resampler_ccf.h
-;; (pass-if (true? (gr:pfb-arb-resampler-ccf )))
+(pass-if (true? (gr:pfb-arb-resampler-ccf 1.0 #(1.0 2.0) 32)))
 
 ;;; ./filter/gr_pfb_channelizer_ccf.h
-;; (pass-if (true? (gr:pfb-channelizer-ccf )))
+(pass-if (true? (gr:pfb-channelizer-ccf 1 #(1.0 2.0) 1)))
 
 ;;; ./filter/gr_pfb_clock_sync_ccf.h
-;; (pass-if (true? (gr:pfb-clock-sync-ccf )))
+(pass-if (true? (gr:pfb-clock-sync-ccf 1.0 1.0 #(1.0 2.0) 32 0 1.5)))
 
 ;;; ./filter/gr_pfb_clock_sync_fff.h
-;; (pass-if (true? (gr:pfb-clock-sync-fff )))
+(pass-if (true? (gr:pfb-clock-sync-fff 1.0 1.0 #(1.0 2.0) 32 0 1.5)))
 
 ;;; ./filter/gr_pfb_decimator_ccf.h
-;; (pass-if (true? (gr:pfb-decimator-ccf )))
+(pass-if (true? (gr:pfb-decimator-ccf 1 #(1.0 2.0) 0)))
 
 ;;; ./filter/gr_pfb_interpolator_ccf.h
-;; (pass-if (true? (gr:pfb-interpolator-ccf )))
+(pass-if (true? (gr:pfb-interpolator-ccf 1 #(1.0 2.0))))
 
-;;; ./filter/gr_rational_resampler_base_ccc.h
+;;; ./filter/gr_rational_resampler_base_ccc.h FIXME: file not found
 ;; (pass-if (true? (gr:rational-resampler-base-ccc )))
 
-;;; ./filter/gr_rational_resampler_base_ccf.h
+;;; ./filter/gr_rational_resampler_base_ccf.h FIXME: file not found
 ;; (pass-if (true? (gr:rational-resampler-base-ccf )))
 
-;;; ./filter/gr_rational_resampler_base_fcc.h
+;;; ./filter/gr_rational_resampler_base_fcc.h FIXME: file not found
 ;; (pass-if (true? (gr:rational-resampler-base-fcc )))
 
-;;; ./filter/gr_rational_resampler_base_fff.h
+;;; ./filter/gr_rational_resampler_base_fff.h FIXME: file not found
 ;; (pass-if (true? (gr:rational-resampler-base-fff )))
 
-;;; ./filter/gr_rational_resampler_base_fsf.h
+;;; ./filter/gr_rational_resampler_base_fsf.h FIXME: file not found
 ;; (pass-if (true? (gr:rational-resampler-base-fsf )))
 
-;;; ./filter/gr_rational_resampler_base_scc.h
+;;; ./filter/gr_rational_resampler_base_scc.h FIXME: file not found
 ;; (pass-if (true? (gr:rational-resampler-base-scc )))
 
 ;;; ./filter/gr_single_pole_iir_filter_cc.h
-;; (pass-if (true? (gr:single-pole-iir-filter-cc )))
+(pass-if (true? (gr:single-pole-iir-filter-cc 1.0 1)))
 
 ;;; ./filter/gr_single_pole_iir_filter_ff.h
-;; (pass-if (true? (gr:single-pole-iir-filter-ff )))
+(pass-if (true? (gr:single-pole-iir-filter-ff 1.0 1)))
diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index a18766400..6abc08399 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -116,10 +116,8 @@
 ;;; ./general/gr_conjugate_cc.h
 (pass-if (true? (gr:conjugate-cc)))
 
-;;; ./general/gr_constellation_decoder_cb.h FIXME: wrong-arg-type (not sure why...)
-;gr_constellation_decoder_cb (const std::vector<gr_complex> &sym_position, 
-;                               const std::vector<unsigned char> &sym_value_out);
-;; (pass-if (true? (gr:constellation-decoder-cb #(2+3i 23+5i) #(0 1))))
+;;; ./general/gr_constellation_decoder_cb.h
+(pass-if (true? (gr:constellation-decoder-cb #(2+3i 23+5i) #(0 1))))
 
 ;;; ./general/gr_copy.h
 (pass-if (true? (gr:copy 1)))
@@ -167,7 +165,7 @@
 ;;; ./general/gr_encode_ccsds_27_bb.h
 (pass-if (true? (gr:encode-ccsds-27-bb)))
 
-;;; ./general/gr_fake_channel_coder_pp.h FIXME: file name doesn't match class name
+;;; ./general/gr_fake_channel_coder_pp.h
 (pass-if (true? (gr:fake-channel-encoder-pp 1 1)))
 (pass-if-throw "confirm throw" #t (true? (gr:fake-channel-encoder-pp -1 1)))
 
@@ -178,7 +176,6 @@
 (pass-if (true? (gr:fft-vcc 1 #f #(1.0 2.0) #t)))
 
 ;;; ./general/gr_fft_vfc.h
-;; bool set_window(const std::vector<float> &window);
 (pass-if (true? (gr:fft-vfc 4 #t #(1.0 2.0 3.0 4.0))))
 (pass-if-throw "confirm throw gr:fft-vfc" #t (true? (gr:fft-vfc 4 #f #(1.0 2.0 3.0 4.0))))
 
@@ -239,7 +236,6 @@
 (pass-if (true? (gr:lms-dfe-ff 1 1 1 1)))
 
 ;;; ./general/gr_map_bb.h
-;; gr_map_bb (const std::vector<int> &map);
 (pass-if (true? (gr:map-bb #(1 2))))
 
 ;;; ./general/gr_mpsk_receiver_cc.h
@@ -260,25 +256,14 @@
 ;;; ./general/gr_ofdm_cyclic_prefixer.h
 (pass-if (true? (gr:ofdm-cyclic-prefixer 1 1)))
 
-;;; ./general/gr_ofdm_frame_acquisition.h FIXME: "No matching method for generic function `ofdm_frame_acquisition'"
-;; gr_ofdm_frame_acquisition (unsigned int occupied_carriers,
-;;                              unsigned int fft_length,
-;;                              unsigned int cplen,
-;;                              const std::vector<gr_complex> &known_symbol, 
-;;                              unsigned int max_fft_shift_len);
-;; (pass-if (true? (gr:ofdm-frame-acquisition 0 0 0 #(1+3i 23+5i) 0)))
+;;; ./general/gr_ofdm_frame_acquisition.h
+(pass-if (true? (gr:ofdm-frame-acquisition 1 1 1 #(1+3i 23+5i) 1)))
 
 ;;; ./general/gr_ofdm_frame_sink.h FIXME: "No matching method for generic function `ofdm_frame_sink'"
-;; gr_ofdm_frame_sink(const std::vector<gr_complex> &sym_position, 
-;;                      const std::vector<unsigned char> &sym_value_out,
-;;                      gr_msg_queue_sptr target_queue, unsigned int occupied_tones,
-;;                      float phase_gain, float freq_gain);
-;;(pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(1 2) (gr:msg-queue) 1 0.25 0)))
-
-;;; ./general/gr_ofdm_insert_preamble.h FIXME: Wrong type argument in position ~A:
-;; gr_ofdm_insert_preamble(int fft_length,
-;;                           const std::vector<std::vector<gr_complex> > &preamble);
-;;(pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i)))))
+;; (pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(1 2) (gr:msg-queue) 1 0.25 0)))
+
+;;; ./general/gr_ofdm_insert_preamble.h FIXME: "Wrong type argument in position ~A: ~S"
+;; (pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i)))))
 
 ;;; ./general/gr_ofdm_mapper_bcv.h FIXME: Wrong type argument in position ~A:
 ;; gr_ofdm_mapper_bcv (const std::vector<gr_complex> &constellation,
diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index 10eb1d9e0..43996c001 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -50,9 +50,8 @@
 ;;; ./gengen/gr_add_const_ss.h
 (pass-if (true? (gr:add-const-ss 0)))
 
-;;; ./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 #(1+3i 23+5i))))
+;;; ./gengen/gr_add_const_vcc.h
+(pass-if (true? (gr:add-const-vcc #(1+3i 23+5i))))
 
 ;;; ./gengen/gr_add_const_vff.h
 (pass-if (true? (gr:add-const-vff #(1.0 2.0))))
@@ -99,25 +98,23 @@
 ;;; ./gengen/gr_argmax_ss.h
 (pass-if (true? (gr:argmax-ss 1)))
 
-;;; ./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_bc.h
+(pass-if (true? (gr:chunks-to-symbols-bc #(1+3i 23+5i) 1)))
 
 ;;; ./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: 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 #(1+3i 23+5i) 1)))
+;;; ./gengen/gr_chunks_to_symbols_ic.h
+(pass-if (true? (gr:chunks-to-symbols-ic #(1+3i 23+5i) 1)))
 
-;;; ./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 #(1.0 2.0) 1)))
+;;; ./gengen/gr_chunks_to_symbols_if.h
+(pass-if (true? (gr:chunks-to-symbols-if #(1.0 2.0) 1)))
 
-;;; ./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_sc.h
+(pass-if (true? (gr:chunks-to-symbols-sc #(1.0 2.0) 1)))
 
-;;; ./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_chunks_to_symbols_sf.h
+(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)))
@@ -179,9 +176,8 @@
 ;;; ./gengen/gr_multiply_const_ss.h
 (pass-if (true? (gr:multiply-const-ss 1)))
 
-;;; ./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+3i 23+5i))))
+;;; ./gengen/gr_multiply_const_vcc.h
+(pass-if (true? (gr:multiply-const-vcc #(1+3i 23+5i))))
 
 ;;; ./gengen/gr_multiply_const_vff.h
 (pass-if (true? (gr:multiply-const-vff #(1.0 2.0))))
@@ -321,19 +317,16 @@
 ;;; ./gengen/gr_vector_sink_s.h
 (pass-if (true? (gr:vector-sink-s 1)))
 
-;;; ./gengen/gr_vector_source_b.h FIXME: not found
+;;; ./gengen/gr_vector_source_b.h
 ;; (pass-if (true? (gr:vector-source-b #(1 2) false 1)))
 
-;;; ./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)
+;; ;;; ./gengen/gr_vector_source_c.h
 ;; (pass-if (true? (gr:vector-source-c #(1+3i 23+5i) false 1)))
 
-;;; ./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)
+;; ;;; ./gengen/gr_vector_source_f.h
 ;; (pass-if (true? (gr:vector-source-f #(1.0 2.0) false 1)))
 
-;;; ./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)
+;;; ./gengen/gr_vector_source_i.h
 ;; (pass-if (true? (gr:vector-source-i #(1 2) false 1)))
 
 ;;; ./gengen/gr_vector_source_s.h FIXME: not found
diff --git a/gnuradio-core/src/guile/tests/hier_ctors.test b/gnuradio-core/src/guile/tests/hier_ctors.test
index 8a83c86d5..b79ee0f15 100644
--- a/gnuradio-core/src/guile/tests/hier_ctors.test
+++ b/gnuradio-core/src/guile/tests/hier_ctors.test
@@ -32,9 +32,9 @@
 ;;; Add test code for all constructors in these files
 ;;;
 
-;;; ./hier/gr_channel_model.h
+;;; ./hier/gr_channel_model.h FIXME: Unbound variable: ~S" (gr:channel_model) #f))
 ;; gr_make_channel_model(double noise_voltage=0.0, double frequency_offset=0.0,
 ;;                       double epsilon=1.0,
 ;; 		      const std::vector<gr_complex> &taps=std::vector<gr_complex>(1, 1),
 ;;                       double noise_seed=3021);
-;; (pass-if (true? (gr:channel_model )))
+;; (pass-if (true? (gr:channel_model 0.0 0.0 1.0 #(1 1) 3021)))
diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index 80fb2d3f2..b74d66cda 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -33,10 +33,10 @@
 ;;;
 
 ;;; ./io/gr_file_descriptor_sink.h
-;;(pass-if (true? (gr:file-descriptor-sink 0 0))) FIXME: throws gr_io_signature(3)
+(pass-if (true? (gr:file-descriptor-sink 1 1)))
 
-;;; ./io/gr_file_descriptor_source.h
-;; (pass-if (true? (gr:file-descriptor-source 1 1 false))) FIXME: not found
+;;; ./io/gr_file_descriptor_source.h  FIXME: not found
+;; (pass-if (true? (gr:file-descriptor-source 1 1 false)))
 
 ;;; ./io/gr_file_sink.h
 (pass-if (true? (gr:file-sink 1 "foo")))
@@ -51,8 +51,8 @@
 ;;; ./io/gr_message_sink.h FIXME: not found
 ;; (pass-if (true? (gr:message-sink 1 1 false)))
 
-;;; ./io/gr_message_source.h
-;; (pass-if (true? (gr:message-source )))
+;;; ./io/gr_message_source.h FIXME: not found
+;; (pass-if (true? (gr:message-source 1.0 0)))
 
 ;;; ./io/gr_oscope_sink_f.h FIXME: not found
 ;; _oscope_sink_x (const std::string name, gr_io_signature_sptr input_sig,
-- 
cgit 


From 5331ab1ce1d24e1608f11fc57df5c84ad3c8be9e Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Wed, 17 Nov 2010 20:55:47 -0700
Subject: fixe more tests

---
 gnuradio-core/src/guile/tests/filter_ctors.test  | 60 ++++++++++++------------
 gnuradio-core/src/guile/tests/general_ctors.test |  2 +-
 2 files changed, 31 insertions(+), 31 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/filter_ctors.test b/gnuradio-core/src/guile/tests/filter_ctors.test
index ee851b6e0..4dd0bc187 100644
--- a/gnuradio-core/src/guile/tests/filter_ctors.test
+++ b/gnuradio-core/src/guile/tests/filter_ctors.test
@@ -154,29 +154,29 @@
 ;;; ./filter/gr_fir_sysconfig_x86.h FIXME: virtual methods
 ;; (pass-if (true? (gr:fir-sysconfig-x86 #(1+3i 23+5i))))
 
-;;; ./filter/gr_fractional_interpolator_cc.h FIXME: file not found
-;; (pass-if (true? (gr:fractional-interpolator-cc 1.0 1.0)))
+;;; ./filter/gr_fractional_interpolator_cc.h
+(pass-if (true? (gr:fractional-interpolator-cc 1.0 1.0)))
 
-;;; ./filter/gr_fractional_interpolator_ff.h FIXME: file not found
-;; (pass-if (true? (gr:fractional-interpolator-ff 1.0 1.0)))
+;;; ./filter/gr_fractional_interpolator_ff.h
+(pass-if (true? (gr:fractional-interpolator-ff 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_ccc.h FIXME: file not found
-;; (pass-if (true? (gr:freq-xlating-fir-filter-ccc 1.0 1.0)))
+;;; ./filter/gr_freq_xlating_fir_filter_ccc.h 
+(pass-if (true? (gr:freq-xlating-fir-filter-ccc 1 #(1+3i 23+5i) 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_ccf.h FIXME: file not found
-;; (pass-if (true? (gr:freq-xlating-fir-filter-ccf 1.0 1.0)))
+;;; ./filter/gr_freq_xlating_fir_filter_ccf.h
+(pass-if (true? (gr:freq-xlating-fir-filter-ccf 1 #(1.0 2.0) 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_fcc.h FIXME: file not found
-;; (pass-if (true? (gr:freq-xlating-fir-filter-fcc 1.0 1.0)))
+;;; ./filter/gr_freq_xlating_fir_filter_fcc.h
+(pass-if (true? (gr:freq-xlating-fir-filter-fcc 1 #(1.0 2.0) 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_fcf.h FIXME: file not found
-;; (pass-if (true? (gr:freq-xlating-fir-filter-fcf 1.0 1.0)))
+;;; ./filter/gr_freq_xlating_fir_filter_fcf.h
+(pass-if (true? (gr:freq-xlating-fir-filter-fcf 1 #(1.0 2.0) 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_scc.h FIXME: file not found
-;; (pass-if (true? (gr:freq-xlating-fir-filter-scc 1.0 1.0)))
+;;; ./filter/gr_freq_xlating_fir_filter_scc.h
+(pass-if (true? (gr:freq-xlating-fir-filter-scc 1 #(1.0 2.0) 1.0 1.0)))
 
-;;; ./filter/gr_freq_xlating_fir_filter_scf.h FIXME: file not found
-;; (pass-if (true? (gr:freq-xlating-fir-filter-scf 1.0 1.0)))
+;;; ./filter/gr_freq_xlating_fir_filter_scf.h
+(pass-if (true? (gr:freq-xlating-fir-filter-scf 1 #(1.0 2.0) 1.0 1.0)))
 
 ;;; ./filter/gr_goertzel_fc.h
 (pass-if (true? (gr:goertzel-fc 1 1 1)))
@@ -187,22 +187,22 @@
 ;;; ./filter/gr_iir_filter_ffd.h
 (pass-if (true? (gr:iir-filter-ffd #(1.0 2.0) #(1.0 2.0))))
 
-;;; ./filter/gr_interp_fir_filter_ccc.h FIXME: file not found
-;; (pass-if (true? (gr:interp-fir-filter-ccc )))
+;;; ./filter/gr_interp_fir_filter_ccc.h FIXME: not found
+;; (pass-if (true? (gr:interp-fir-filter-ccc #(1+3i 23+5i))))
 
-;;; ./filter/gr_interp_fir_filter_ccf.h FIXME: file not found
+;;; ./filter/gr_interp_fir_filter_ccf.h FIXME: not found
 ;; (pass-if (true? (gr:interp-fir-filter-ccf )))
 
-;;; ./filter/gr_interp_fir_filter_fcc.h FIXME: file not found
+;;; ./filter/gr_interp_fir_filter_fcc.h FIXME: not found
 ;; (pass-if (true? (gr:interp-fir-filter-fcc )))
 
-;;; ./filter/gr_interp_fir_filter_fff.h FIXME: file not found
+;;; ./filter/gr_interp_fir_filter_fff.h FIXME: not found
 ;; (pass-if (true? (gr:interp-fir-filter-fff )))
 
-;;; ./filter/gr_interp_fir_filter_fsf.h FIXME: file not found
+;;; ./filter/gr_interp_fir_filter_fsf.h FIXME: not found
 ;; (pass-if (true? (gr:interp-fir-filter-fsf )))
 
-;;; ./filter/gr_interp_fir_filter_scc.h FIXME: file not found
+;;; ./filter/gr_interp_fir_filter_scc.h FIXME: not found
 ;; (pass-if (true? (gr:interp-fir-filter-scc )))
 
 ;;; ./filter/gr_pfb_arb_resampler_ccf.h
@@ -223,22 +223,22 @@
 ;;; ./filter/gr_pfb_interpolator_ccf.h
 (pass-if (true? (gr:pfb-interpolator-ccf 1 #(1.0 2.0))))
 
-;;; ./filter/gr_rational_resampler_base_ccc.h FIXME: file not found
-;; (pass-if (true? (gr:rational-resampler-base-ccc )))
+;;; ./filter/gr_rational_resampler_base_ccc.h FIXME: not found
+;; (pass-if (true? (gr:rational-resampler-base-ccc 1 1 #(1+3i 23+5i))))
 
-;;; ./filter/gr_rational_resampler_base_ccf.h FIXME: file not found
+;;; ./filter/gr_rational_resampler_base_ccf.h FIXME: not found
 ;; (pass-if (true? (gr:rational-resampler-base-ccf )))
 
-;;; ./filter/gr_rational_resampler_base_fcc.h FIXME: file not found
+;;; ./filter/gr_rational_resampler_base_fcc.h FIXME: not found
 ;; (pass-if (true? (gr:rational-resampler-base-fcc )))
 
-;;; ./filter/gr_rational_resampler_base_fff.h FIXME: file not found
+;;; ./filter/gr_rational_resampler_base_fff.h FIXME: not found
 ;; (pass-if (true? (gr:rational-resampler-base-fff )))
 
-;;; ./filter/gr_rational_resampler_base_fsf.h FIXME: file not found
+;;; ./filter/gr_rational_resampler_base_fsf.h FIXME: not found
 ;; (pass-if (true? (gr:rational-resampler-base-fsf )))
 
-;;; ./filter/gr_rational_resampler_base_scc.h FIXME: file not found
+;;; ./filter/gr_rational_resampler_base_scc.h FIXME: not found
 ;; (pass-if (true? (gr:rational-resampler-base-scc )))
 
 ;;; ./filter/gr_single_pole_iir_filter_cc.h
diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index 6abc08399..d09766a95 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -260,7 +260,7 @@
 (pass-if (true? (gr:ofdm-frame-acquisition 1 1 1 #(1+3i 23+5i) 1)))
 
 ;;; ./general/gr_ofdm_frame_sink.h FIXME: "No matching method for generic function `ofdm_frame_sink'"
-;; (pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(1 2) (gr:msg-queue) 1 0.25 0)))
+;; (pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #('a' 'b') (gr:msg-queue) 1 0.25 0)))
 
 ;;; ./general/gr_ofdm_insert_preamble.h FIXME: "Wrong type argument in position ~A: ~S"
 ;; (pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i)))))
-- 
cgit 


From f60c4420e1fdef24687ffed6baf4fd7fa5ca5cf8 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Thu, 18 Nov 2010 17:33:05 -0800
Subject: Fix guile related problems with gr_message_{sink,source}.

---
 gnuradio-core/src/guile/tests/io_ctors.test | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

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)))
 
-- 
cgit 


From 6237fafa53938db53a3e2a82b79e80b524dd05db Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Thu, 18 Nov 2010 22:22:23 -0800
Subject: gr_msg_queue now working correctly from within guile.

---
 gnuradio-core/src/guile/tests/00_runtime_ctors.test | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_ctors.test b/gnuradio-core/src/guile/tests/00_runtime_ctors.test
index 0c131f5bd..966d8c909 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_ctors.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_ctors.test
@@ -32,4 +32,23 @@
 ;;; Add test code for all constructors in these files
 ;;;
 ;;; ./runtime/gr_hier_block2.h
+
 ;;; ./runtime/gr_msg_queue.h
+
+(define (equal-message? a b)
+  (equal? (gr:to-string a) (gr:to-string b)))
+
+(with-test-prefix "gr:message/gr:msg-queue"
+  (let ((msg1 (gr:message-from-string "Hello"))
+	(msg2 (gr:message-from-string "World!"))
+	(q (gr:msg-queue)))
+    (pass-if (equal? "Hello" (gr:to-string msg1)))
+    (pass-if (equal? "World!" (gr:to-string msg2)))
+    (pass-if (gr:empty-p q))
+    (gr:insert-tail q msg1)
+    (pass-if (not (gr:empty-p q)))
+    (gr:insert-tail q msg2)
+    (let ((r1 (gr:delete-head q))
+	  (r2 (gr:delete-head q)))
+      (pass-if (equal-message? r1 msg1))
+      (pass-if (equal-message? r2 msg2)))))
-- 
cgit 


From 31b5e27fbf72eca257bc4dd548e127ce16eef9ec Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Fri, 19 Nov 2010 00:13:28 -0800
Subject: Enable a couple more tests

---
 gnuradio-core/src/guile/tests/general_ctors.test | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index d09766a95..ff5ee74fa 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -259,18 +259,18 @@
 ;;; ./general/gr_ofdm_frame_acquisition.h
 (pass-if (true? (gr:ofdm-frame-acquisition 1 1 1 #(1+3i 23+5i) 1)))
 
-;;; ./general/gr_ofdm_frame_sink.h FIXME: "No matching method for generic function `ofdm_frame_sink'"
-;; (pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #('a' 'b') (gr:msg-queue) 1 0.25 0)))
+;;; ./general/gr_ofdm_frame_sink.h
+(pass-if (true? (gr:ofdm-frame-sink #(1+3i 23+5i) #(0 1) (gr:msg-queue) 128 0.25 0)))
 
 ;;; ./general/gr_ofdm_insert_preamble.h FIXME: "Wrong type argument in position ~A: ~S"
-;; (pass-if (true? (gr:ofdm-insert-preamble 1 #(#(1+3i 23+5i)))))
-
-;;; ./general/gr_ofdm_mapper_bcv.h FIXME: Wrong type argument in position ~A:
-;; gr_ofdm_mapper_bcv (const std::vector<gr_complex> &constellation,
-;;                       unsigned int msgq_limit,
-;;                       unsigned int bits_per_symbol,
-;;                       unsigned int fft_length);
-;; (pass-if (true? (gr:ofdm-mapper-bcv #(1+3i 23+5i) 1 1 1)))
+;;;                                     WONTFIX: Need vector<vector<complex<float>>>
+;;(pass-if (true? (gr:ofdm-insert-preamble 2 #(#(1+3i 23+5i) #(1+3i 23+5i)))))
+
+;;; ./general/gr_ofdm_mapper_bcv.h
+(pass-if (true? (gr:ofdm-mapper-bcv #(0+1i 0-1i) 1 100 128)))
+(pass-if-throw "confirm throw gr:ofdm-mapper-bcv" #t
+  (true? (gr:ofdm-mapper-bcv #(0+1i 0-1i) 1 10 128)))
+
 
 ;;; ./general/gr_ofdm_sampler.h
 (pass-if (true? (gr:ofdm-sampler 1 1 1)))
-- 
cgit 


From 37a1e931c11f2ba0bdd8ef9ff07c6710e83c6139 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Fri, 19 Nov 2010 00:47:07 -0800
Subject: Enable more tests

---
 gnuradio-core/src/guile/tests/gengen_ctors.test | 18 ++++-----
 gnuradio-core/src/guile/tests/io_ctors.test     | 49 ++++++++++++-------------
 2 files changed, 33 insertions(+), 34 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/gengen_ctors.test b/gnuradio-core/src/guile/tests/gengen_ctors.test
index 43996c001..6e1213c63 100644
--- a/gnuradio-core/src/guile/tests/gengen_ctors.test
+++ b/gnuradio-core/src/guile/tests/gengen_ctors.test
@@ -198,16 +198,16 @@
 (pass-if (true? (gr:multiply-ss 1)))
 
 ;;; ./gengen/gr_mute_cc.h FIXME: not found
-;; (pass-if (true? (gr:mute-cc false)))
+(pass-if (true? (gr:mute-cc #f)))
 
 ;;; ./gengen/gr_mute_ff.h FIXME: not found
-;;(pass-if (true? (gr:mute-ff false)))
+(pass-if (true? (gr:mute-ff #f)))
 
 ;;; ./gengen/gr_mute_ii.h FIXME: not found
-;; (pass-if (true? (gr:mute-ii false)))
+(pass-if (true? (gr:mute-ii #f)))
 
 ;;; ./gengen/gr_mute_ss.h FIXME: not found
-;; (pass-if (true? (gr:mute-ss false)))
+(pass-if (true? (gr:mute-ss #f)))
 
 ;;; ./gengen/gr_noise_source_c.h
 (pass-if (true? (gr:noise-source-c 1 0 3021)))
@@ -318,19 +318,19 @@
 (pass-if (true? (gr:vector-sink-s 1)))
 
 ;;; ./gengen/gr_vector_source_b.h
-;; (pass-if (true? (gr:vector-source-b #(1 2) false 1)))
+;; (pass-if (true? (gr:vector-source-b #(1 2) #f 1)))
 
 ;; ;;; ./gengen/gr_vector_source_c.h
-;; (pass-if (true? (gr:vector-source-c #(1+3i 23+5i) false 1)))
+;; (pass-if (true? (gr:vector-source-c #(1+3i 23+5i) #f 1)))
 
 ;; ;;; ./gengen/gr_vector_source_f.h
-;; (pass-if (true? (gr:vector-source-f #(1.0 2.0) false 1)))
+;; (pass-if (true? (gr:vector-source-f #(1.0 2.0) #f 1)))
 
 ;;; ./gengen/gr_vector_source_i.h
-;; (pass-if (true? (gr:vector-source-i #(1 2) false 1)))
+;; (pass-if (true? (gr:vector-source-i #(1 2) #f 1)))
 
 ;;; ./gengen/gr_vector_source_s.h FIXME: not found
-;; (pass-if (true? (gr:vector-source-s #(1 2) false 1)))
+;; (pass-if (true? (gr:vector-source-s #(1 2) #f 1)))
 
 ;;; ./gengen/gr_xor_bb.h
 (pass-if (true? (gr:xor-bb)))
diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index 99c84ae37..1c5c9a771 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -37,20 +37,21 @@
 ;;;
 
 ;;; ./io/gr_file_descriptor_sink.h
-(pass-if (true? (gr:file-descriptor-sink 1 1)))
+(pass-if (true? (gr:file-descriptor-sink 1 (dup 1))))
 
-;;; ./io/gr_file_descriptor_source.h  FIXME: not found
-;; (pass-if (true? (gr:file-descriptor-source 1 1 #f)))
+;;; ./io/gr_file_descriptor_source.h
+(pass-if (true? (gr:file-descriptor-source 1 (dup 0) #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" #f)))
+;;; ./io/gr_file_source.h
+(pass-if (true? (gr:file-source 1 "foo" #f)))
+(rm-foo)
 
-;;; ./io/gr_histo_sink_f.h FIXME: not found
+;;; ./io/gr_histo_sink_f.h
 ;; gr_make_histo_sink_f (gr_msg_queue_sptr msgq);
-;; (pass-if (true? (gr:histo-sink-f 1)))
+(pass-if (true? (gr:histo-sink-f (gr:msg-queue))))
 
 ;;; ./io/gr_message_sink.h
 (pass-if (true? (gr:message-sink 1 (gr:msg-queue) #f)))
@@ -59,25 +60,23 @@
 (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,
-;;                     double sample_rate);
-;; (pass-if (true? (gr:oscope-sink-f "foo" 1 1)))
+;;; ./io/gr_oscope_sink_f.h
+(pass-if (true? (gr:oscope-sink-f 1000 (gr:msg-queue))))
 
-;;; ./io/gr_oscope_sink_x.h FIXME: not found
-;; gr_oscope_sink_x (const std::string name, gr_io_signature_sptr input_sig,
-;;                     double sampling_rate);
-;; (pass-if (true? (gr:oscope_sink_x "foo" 1 1)))
+;;; ./io/gr_udp_sink.h
+(pass-if (true? (gr:udp-sink 4 "localhost" 80 1472 #f)))
+(pass-if-throw "confirm throw gr:udp-sink" #t
+  (true? (gr:udp-sink 4 "localhostx" 80 1472 #f)))
 
-;;; ./io/gr_udp_sink.h FIXME: not found
-;; (pass-if (true? (gr:udp-sink 1 "foo" 1472 #t)))
+;;; ./io/gr_udp_source.h
+(pass-if (true? (gr:udp-source 4 "localhost" 0 1472 #f #t)))
+(pass-if-throw "confirm throw gr:udp-sink" #t
+  (true? (gr:udp-source 4 "localhostx" 0 1472 #f #t)))
 
-;;; ./io/gr_udp_source.h FIXME: not found
-;; (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" #f)))
+;;; ./io/gr_wavfile_sink.h
+(pass-if (true? (gr:wavfile-sink "foo" 2 48000 16)))
 
+;;; ./io/gr_wavfile_source.h WONTFIX: buggy source won't accept file
+;;;                                   created immediately above.
+;;(pass-if (true? (gr:wavfile-source "foo" #f)))
+(rm-foo)
-- 
cgit 


From 17b63012f821a85924c174b7d89f1236ba4ac5d0 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Tue, 23 Nov 2010 22:25:51 -0800
Subject: Move verbose-equal? to lib.scm

---
 gnuradio-core/src/guile/tests/general_ctors.test | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/general_ctors.test b/gnuradio-core/src/guile/tests/general_ctors.test
index ff5ee74fa..244249dd8 100644
--- a/gnuradio-core/src/guile/tests/general_ctors.test
+++ b/gnuradio-core/src/guile/tests/general_ctors.test
@@ -31,14 +31,6 @@
 (use-modules (ice-9 format))
 
 
-(define (verbose-equal? expected actual)
-  (cond ((equal? expected actual) #t)
-	(else
-	 (format #t "Expected:\n~y\n" expected)
-	 (format #t "Actual:\n~y\n" actual)
-	 #f)))
-
-
 ;;; Test complex<float> scalars
 (pass-if (equal? 5.0+5.0i (gr:complex-scalar-test0)))
 (pass-if (equal? 1.5+0.5i (gr:complex-scalar-test1 1+1i)))
-- 
cgit 


From 74cbbd74dec5a1b976b5db028fe3aa4e20a899e3 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Thu, 9 Dec 2010 20:49:29 -0800
Subject: Disable guile udp tests.  They were causing a problem on some
 systems.

---
 gnuradio-core/src/guile/tests/io_ctors.test | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/io_ctors.test b/gnuradio-core/src/guile/tests/io_ctors.test
index 1c5c9a771..5f40d321c 100644
--- a/gnuradio-core/src/guile/tests/io_ctors.test
+++ b/gnuradio-core/src/guile/tests/io_ctors.test
@@ -64,14 +64,14 @@
 (pass-if (true? (gr:oscope-sink-f 1000 (gr:msg-queue))))
 
 ;;; ./io/gr_udp_sink.h
-(pass-if (true? (gr:udp-sink 4 "localhost" 80 1472 #f)))
-(pass-if-throw "confirm throw gr:udp-sink" #t
-  (true? (gr:udp-sink 4 "localhostx" 80 1472 #f)))
+;;(pass-if (true? (gr:udp-sink 4 "localhost" 80 1472 #f)))
+;;(pass-if-throw "confirm throw gr:udp-sink" #t
+;;  (true? (gr:udp-sink 4 "localhostx" 80 1472 #f)))
 
 ;;; ./io/gr_udp_source.h
-(pass-if (true? (gr:udp-source 4 "localhost" 0 1472 #f #t)))
-(pass-if-throw "confirm throw gr:udp-sink" #t
-  (true? (gr:udp-source 4 "localhostx" 0 1472 #f #t)))
+;;(pass-if (true? (gr:udp-source 4 "localhost" 0 1472 #f #t)))
+;;(pass-if-throw "confirm throw gr:udp-source" #t
+;;  (true? (gr:udp-source 4 "localhostx" 0 1472 #f #t)))
 
 ;;; ./io/gr_wavfile_sink.h
 (pass-if (true? (gr:wavfile-sink "foo" 2 48000 16)))
-- 
cgit 


From 9fe81031520463dfe46a890fc9d039d44929a43a Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Thu, 23 Dec 2010 11:00:58 -0800
Subject: Add test to see if Guile was built with threads enabled

---
 gnuradio-core/src/guile/tests/00_runtime_basics.test | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gnuradio-core/src/guile/tests')

diff --git a/gnuradio-core/src/guile/tests/00_runtime_basics.test b/gnuradio-core/src/guile/tests/00_runtime_basics.test
index 18b298f22..4a5d967a1 100644
--- a/gnuradio-core/src/guile/tests/00_runtime_basics.test
+++ b/gnuradio-core/src/guile/tests/00_runtime_basics.test
@@ -32,6 +32,7 @@
 (define (vector-map f v)
   (list->vector (map f (vector->list v))))
 
+(pass-if "Guile was built with threads" (not (not (memq 'threads *features*))))
 
 (with-test-prefix "connect-1"
  (let* ((src-data #(-5 -4 -3 -2 -1 0 1 2 3 4 5))
-- 
cgit