gazagnaire.org / ocaml-rtlsdr
RTL-SDR IQ sample reader
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

rtlsdr: merge suites into single suite (merlint E615)

Thomas Gazagnaire 1e01ae97 c7f5dc9d

+30 -42
+1 -1
test/test.ml
··· 1 - let () = Alcotest.run "rtlsdr" Test_rtlsdr.suites 1 + let () = Alcotest.run "rtlsdr" [ Test_rtlsdr.suite ]
+27 -39
test/test_rtlsdr.ml
··· 375 375 "no metadata by default" true 376 376 (Option.is_none (Rtlsdr.metadata src)) 377 377 378 - let suites = 379 - [ 380 - ( "iq", 381 - [ 382 - Alcotest.test_case "of_bytes roundtrip" `Quick test_of_bytes_roundtrip; 383 - Alcotest.test_case "sample_count" `Quick test_sample_count; 384 - Alcotest.test_case "read count" `Quick test_read_count; 385 - Alcotest.test_case "metadata roundtrip" `Quick test_metadata; 386 - Alcotest.test_case "IQ byte format" `Quick test_iq_byte_format; 387 - Alcotest.test_case "IQ large buffer" `Quick test_iq_large_buffer; 388 - ] ); 389 - ( "signal", 390 - [ 391 - Alcotest.test_case "generate_tone" `Quick test_generate_tone; 392 - Alcotest.test_case "generate_bpsk" `Quick test_generate_bpsk; 393 - Alcotest.test_case "tone fs/4" `Quick test_tone_fs_over_4; 394 - Alcotest.test_case "tone DC" `Quick test_tone_dc; 395 - Alcotest.test_case "tone unit magnitude" `Quick test_tone_unit_magnitude; 396 - Alcotest.test_case "tone Nyquist/2" `Quick test_tone_nyquist_half; 397 - Alcotest.test_case "BPSK bit polarity" `Quick test_bpsk_bit_polarity; 398 - Alcotest.test_case "BPSK transitions" `Quick test_bpsk_transitions; 399 - Alcotest.test_case "BPSK sps" `Quick test_bpsk_sps; 400 - ] ); 401 - ( "source", 402 - [ 403 - Alcotest.test_case "read_all matches" `Quick 404 - test_source_read_all_matches; 405 - Alcotest.test_case "sequential reads" `Quick test_sequential_reads; 406 - Alcotest.test_case "read after exhaustion" `Quick 407 - test_read_after_exhaustion; 408 - Alcotest.test_case "sample_count accuracy" `Quick 409 - test_sample_count_accuracy; 410 - ] ); 411 - ( "metadata", 412 - [ 413 - Alcotest.test_case "metadata roundtrip" `Quick test_metadata_roundtrip; 414 - Alcotest.test_case "metadata default" `Quick test_metadata_default; 415 - ] ); 416 - ] 378 + let suite = 379 + ( "rtlsdr", 380 + [ 381 + Alcotest.test_case "of_bytes roundtrip" `Quick test_of_bytes_roundtrip; 382 + Alcotest.test_case "sample_count" `Quick test_sample_count; 383 + Alcotest.test_case "read count" `Quick test_read_count; 384 + Alcotest.test_case "metadata roundtrip" `Quick test_metadata; 385 + Alcotest.test_case "IQ byte format" `Quick test_iq_byte_format; 386 + Alcotest.test_case "IQ large buffer" `Quick test_iq_large_buffer; 387 + Alcotest.test_case "generate_tone" `Quick test_generate_tone; 388 + Alcotest.test_case "generate_bpsk" `Quick test_generate_bpsk; 389 + Alcotest.test_case "tone fs/4" `Quick test_tone_fs_over_4; 390 + Alcotest.test_case "tone DC" `Quick test_tone_dc; 391 + Alcotest.test_case "tone unit magnitude" `Quick test_tone_unit_magnitude; 392 + Alcotest.test_case "tone Nyquist/2" `Quick test_tone_nyquist_half; 393 + Alcotest.test_case "BPSK bit polarity" `Quick test_bpsk_bit_polarity; 394 + Alcotest.test_case "BPSK transitions" `Quick test_bpsk_transitions; 395 + Alcotest.test_case "BPSK sps" `Quick test_bpsk_sps; 396 + Alcotest.test_case "read_all matches" `Quick test_source_read_all_matches; 397 + Alcotest.test_case "sequential reads" `Quick test_sequential_reads; 398 + Alcotest.test_case "read after exhaustion" `Quick 399 + test_read_after_exhaustion; 400 + Alcotest.test_case "sample_count accuracy" `Quick 401 + test_sample_count_accuracy; 402 + Alcotest.test_case "metadata roundtrip" `Quick test_metadata_roundtrip; 403 + Alcotest.test_case "metadata default" `Quick test_metadata_default; 404 + ] )
+2 -2
test/test_rtlsdr.mli
··· 1 1 (** RTL-SDR tests. *) 2 2 3 - val suites : (string * unit Alcotest.test_case list) list 4 - (** [suites] is the list of RTL-SDR test suites. *) 3 + val suite : string * unit Alcotest.test_case list 4 + (** [suite] is the RTL-SDR test suite. *)