sample\audiometer\test_hspaudiometer.hsp » Plain Format
;============================================================ ; hspaudiometer ユニットテスト ;============================================================ #include "hsp3cl_net_64.as" #include "hsptestrt.as" #include "iron_test_ex.hsp" #include "hspaudiometer.as" test_case "open / close" sm_open expect_eq stat, 0 sm_close expect_eq stat, 0 test_end test_case "sample rate positive" sm_open dim sr, 1 sm_get_sample_rate sr expect_eq stat, 0 ; サンプリングレートは通常 44100 or 48000 or 96000 expect_eq sr(0) > 0, 1 sm_close test_end test_case "poll + rms + peak + dbfs" sm_open await 50 sm_poll expect_eq stat, 0 ddim rms, 1 ddim peak, 1 ddim dbfs, 1 sm_get_rms rms expect_eq stat, 0 sm_get_peak peak expect_eq stat, 0 sm_get_dbfs dbfs expect_eq stat, 0 ; 無音でも値は取得できる (NaN/Inf でない) expect_eq rms(0) >= 0.0, 1 expect_eq peak(0) >= 0.0, 1 ; dBFS は -inf になることがあるので下限 -200 dB までは許容 expect_eq dbfs(0) <= 0.001, 1 sm_close test_end test_case "8 bands accessible" sm_open await 50 sm_poll pass_ct = 0 repeat 8 ddim b, 1 sm_get_band cnt, b if stat == 0 : pass_ct++ loop expect_eq pass_ct, 8 sm_close test_end end test_finish