static void test_bt_machine_state_solo_resets_others (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *src1 = BT_MACHINE (bt_source_machine_new (song, "gen1", "audiotestsrc", 0L, NULL)); BtMachine *src2 = BT_MACHINE (bt_source_machine_new (song, "gen2", "audiotestsrc", 0L, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "sink", NULL)); bt_wire_new (song, src1, sink, NULL); bt_wire_new (song, src2, sink, NULL); GST_INFO ("-- act --"); g_object_set (src1, "state", BT_MACHINE_STATE_SOLO, NULL); g_object_set (src2, "state", BT_MACHINE_STATE_SOLO, NULL); GST_INFO ("-- assert --"); ck_assert_gobject_guint_eq (src1, "state", BT_MACHINE_STATE_NORMAL); ck_assert_gobject_guint_eq (src2, "state", BT_MACHINE_STATE_SOLO); GST_INFO ("-- cleanup --"); BT_TEST_END; }
/* * check if we can disconnect a src machine from a sink while playing. */ static void test_bt_setup_dynamic_rem_src (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = (BtSetup *) check_gobject_get_object_property (song, "setup"); BtSequence *sequence = (BtSequence *) check_gobject_get_object_property (song, "sequence"); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "master", NULL)); BtMachine *gen1 = BT_MACHINE (bt_source_machine_new (song, "gen1", "audiotestsrc", 0L, NULL)); BtMachine *gen2 = BT_MACHINE (bt_source_machine_new (song, "gen2", "audiotestsrc", 0L, NULL)); bt_wire_new (song, gen1, sink, NULL); BtWire *wire2 = bt_wire_new (song, gen2, sink, NULL); GstElement *element1 = (GstElement *) check_gobject_get_object_property (gen1, "machine"); GstElement *element2 = (GstElement *) check_gobject_get_object_property (gen2, "machine"); g_object_set (sequence, "length", 64L, "loop", TRUE, NULL); bt_sequence_add_track (sequence, gen1, -1); bt_sequence_add_track (sequence, gen2, -1); g_object_set (element1, "wave", /* silence */ 4, NULL); g_object_set (element2, "wave", /* silence */ 4, NULL); bt_machine_set_param_defaults (gen1); bt_machine_set_param_defaults (gen2); mark_point (); /* play the song */ if (bt_song_play (song)) { mark_point (); check_run_main_loop_until_playing_or_error (song); GST_DEBUG ("song plays"); /* unlink machines */ bt_setup_remove_wire (setup, wire2); GST_DEBUG ("wire removed"); g_usleep (G_USEC_PER_SEC / 10); /* stop the song */ bt_song_stop (song); } else { fail ("playing of song failed"); } GST_INFO ("-- cleanup --"); g_object_unref (setup); g_object_unref (sequence); BT_TEST_END; }
static void test_bt_machine_unbind_parameter_controls (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "id", "buzztrax-test-mono-source", 0, NULL)); GstObject *element = (GstObject *) check_gobject_get_object_property (machine, "machine"); BtParameterGroup *pg = bt_machine_get_global_param_group (machine); BtIcControl *control = btic_device_get_control_by_name (device, "abs1"); g_object_set (element, "g-uint", 10, NULL); bt_machine_bind_parameter_control (machine, element, "g-uint", control, pg); g_object_set (control, "value", 0, NULL); GST_INFO ("-- act --"); bt_machine_unbind_parameter_controls (machine); g_object_set (control, "value", 100, NULL); GST_INFO ("-- assert --"); ck_assert_gobject_guint_eq (element, "g-uint", 0); GST_INFO ("-- cleanup --"); gst_object_unref (element); g_object_unref (control); BT_TEST_END; }
static void test_bt_machine_state_bypass_no_sideeffects (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *src = BT_MACHINE (bt_source_machine_new (song, "gen", "audiotestsrc", 0L, NULL)); BtMachine *proc = BT_MACHINE (bt_processor_machine_new (song, "vol", "volume", 0L, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "sink", NULL)); bt_wire_new (song, src, proc, NULL); bt_wire_new (song, proc, sink, NULL); GST_INFO ("-- act --"); g_object_set (proc, "state", BT_MACHINE_STATE_BYPASS, NULL); GST_INFO ("-- assert --"); ck_assert_gobject_guint_eq (src, "state", BT_MACHINE_STATE_NORMAL); ck_assert_gobject_guint_eq (proc, "state", BT_MACHINE_STATE_BYPASS); ck_assert_gobject_guint_eq (sink, "state", BT_MACHINE_STATE_NORMAL); GST_INFO ("-- cleanup --"); BT_TEST_END; }
static BtValueGroup * get_mono_value_group (void) { machine = BT_MACHINE (bt_source_machine_new (song, "id", "buzztrax-test-mono-source", 0, NULL)); pattern = bt_pattern_new (song, "pattern-name", 4L, machine); return bt_pattern_get_global_group (pattern); }
static void test_bt_wire_can_link (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *gen = BT_MACHINE (bt_source_machine_new (song, "gen", "audiotestsrc", 0L, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "master", NULL)); /* act & assert */ fail_unless (bt_wire_can_link (gen, sink)); GST_INFO ("-- cleanup --"); BT_TEST_END; }
static void test_bt_machine_pretty_name_with_detail (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *src = BT_MACHINE (bt_source_machine_new (song, "gen", "audiotestsrc", 0L, NULL)); GST_INFO ("-- act --"); GST_INFO ("-- assert --"); ck_assert_gobject_str_eq (src, "pretty-name", "gen (audiotestsrc)"); GST_INFO ("-- cleanup --"); BT_TEST_END; }
/* create a machine which is a sink machine and not a source machine */ static void test_bt_source_machine_wrong_type (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); /*act */ GError *err = NULL; BtSourceMachine *machine = bt_source_machine_new (song, "id", "autoaudiosink", 1, &err); GST_INFO ("-- assert --"); fail_unless (machine != NULL, NULL); fail_unless (err != NULL, NULL); GST_INFO ("-- cleanup --"); BT_TEST_END; }
/* add pattern */ static void test_bt_machine_add_pattern (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "gen", "buzztrax-test-poly-source", 1L, NULL)); GST_INFO ("-- act --"); BtPattern *pattern = bt_pattern_new (song, "pattern-name", 8L, machine); GST_INFO ("-- assert --"); fail_unless (bt_machine_has_patterns (machine), NULL); GST_INFO ("-- cleanup --"); g_object_unref (pattern); BT_TEST_END; }
static void test_bt_cmd_pattern_obj_poly1 (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "gen", "buzztrax-test-poly-source", 2L, NULL)); GST_INFO ("-- act --"); BtCmdPattern *pattern = bt_cmd_pattern_new (song, machine, BT_PATTERN_CMD_MUTE); GST_INFO ("-- assert --"); ck_assert_gobject_guint_eq (pattern, "command", BT_PATTERN_CMD_MUTE); GST_INFO ("-- cleanup --"); g_object_unref (pattern); BT_TEST_END; }
static void test_bt_setup_machine_add_id (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = BT_SETUP (check_gobject_get_object_property (song, "setup")); GST_INFO ("-- act --"); BtMachine *source = BT_MACHINE (bt_source_machine_new (song, "src", "buzztrax-test-mono-source", 0, NULL)); GST_INFO ("-- assert --"); ck_assert_gobject_eq_and_unref (bt_setup_get_machine_by_id (setup, "src"), source); GST_INFO ("-- cleanup --"); g_object_unref (setup); BT_TEST_END; }
static void test_bt_machine_create (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); GST_INFO ("-- act --"); GError *err = NULL; BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "gen", element_names[_i], element_voices[_i], &err)); GST_INFO ("-- assert --"); fail_unless (machine != NULL, NULL); fail_unless (err == NULL, NULL); fail_unless (!bt_machine_has_patterns (machine), NULL); GST_INFO ("-- cleanup --"); BT_TEST_END; }
static void test_bt_wire_pretty_name (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *src = BT_MACHINE (bt_source_machine_new (song, "audiotestsrc", "audiotestsrc", 0L, NULL)); BtMachine *proc = BT_MACHINE (bt_processor_machine_new (song, "volume", "volume", 0L, NULL)); BtWire *wire = bt_wire_new (song, src, proc, NULL); GST_INFO ("-- act --"); GST_INFO ("-- assert --"); ck_assert_gobject_str_eq (wire, "pretty-name", "audiotestsrc -> volume"); GST_INFO ("-- cleanup --"); BT_TEST_END; }
static void test_bt_machine_check_voices (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); GST_INFO ("-- act --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "gen", "buzztrax-test-poly-source", 2L, NULL)); GST_INFO ("-- assert --"); GstChildProxy *element = (GstChildProxy *) check_gobject_get_object_property (machine, "machine"); ck_assert_int_eq (gst_child_proxy_get_children_count (element), 2); //ck_assert_gobject_gulong_eq(machine,"voices",2); GST_INFO ("-- cleanup --"); gst_object_unref (element); BT_TEST_END; }
/* * In this example you can see, how we get a source machine back by its type. */ static void test_bt_setup_machine_type (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = BT_SETUP (check_gobject_get_object_property (song, "setup")); BtMachine *source = BT_MACHINE (bt_source_machine_new (song, "src", "buzztrax-test-mono-source", 0, NULL)); GST_INFO ("-- act --"); BtMachine *machine = bt_setup_get_machine_by_type (setup, BT_TYPE_SOURCE_MACHINE); GST_INFO ("-- assert --"); fail_unless (machine == source, NULL); GST_INFO ("-- cleanup --"); g_object_unref (machine); g_object_unref (setup); BT_TEST_END; }
/* * In this test case we check the _unique_id function. */ static void test_bt_setup_unique_machine_id1 (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = BT_SETUP (check_gobject_get_object_property (song, "setup")); bt_source_machine_new (song, "src", "buzztrax-test-mono-source", 0, NULL); GST_INFO ("-- act --"); gchar *id = bt_setup_get_unique_machine_id (setup, "src"); GST_INFO ("-- assert --"); fail_unless (id != NULL, NULL); ck_assert_gobject_eq_and_unref (bt_setup_get_machine_by_id (setup, id), NULL); ck_assert_str_ne (id, "src"); GST_INFO ("-- cleanup --"); g_free (id); g_object_unref (setup); BT_TEST_END; }
static void test_bt_machine_next_pattern_name (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "gen", "buzztrax-test-poly-source", 1L, NULL)); BtPattern *pattern = bt_pattern_new (song, "00", 8L, machine); GST_INFO ("-- act --"); gchar *pattern_name = bt_machine_get_unique_pattern_name (machine); GST_INFO ("-- assert --"); ck_assert_str_eq (pattern_name, "01"); GST_INFO ("-- cleanup --"); g_free (pattern_name); g_object_unref (pattern); BT_TEST_END; }
static void test_bt_wire_new (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *gen = BT_MACHINE (bt_source_machine_new (song, "gen", "audiotestsrc", 0L, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "master", NULL)); GST_INFO ("-- act --"); GError *err = NULL; BtWire *wire = bt_wire_new (song, gen, sink, &err); GST_INFO ("-- assert --"); fail_unless (wire != NULL, NULL); fail_unless (err == NULL, NULL); GST_INFO ("-- cleanup --"); BT_TEST_END; }
static void test_bt_machine_list_model_get_machine (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); GtkTreeIter iter; BtMachine *machine1 = BT_MACHINE (bt_source_machine_new (song, "gen", "buzztrax-test-mono-source", 0, NULL)); BtMachineListModel *model = bt_machine_list_model_new (setup); gtk_tree_model_get_iter_first ((GtkTreeModel *) model, &iter); GST_INFO ("-- act --"); BtMachine *machine2 = bt_machine_list_model_get_object (model, &iter); GST_INFO ("-- assert --"); fail_unless (machine1 == machine2, NULL); GST_INFO ("-- cleanup --"); g_object_unref (model); BT_TEST_END; }
static void test_bt_machine_state_not_overridden (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSequence *sequence = (BtSequence *) check_gobject_get_object_property (song, "sequence"); BtSongInfo *song_info = BT_SONG_INFO (check_gobject_get_object_property (song, "song-info")); BtMachine *src = BT_MACHINE (bt_source_machine_new (song, "gen", "simsyn", 0L, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "sink", NULL)); bt_wire_new (song, src, sink, NULL); BtCmdPattern *pattern = bt_cmd_pattern_new (song, src, BT_PATTERN_CMD_SOLO); GstElement *element = (GstElement *) check_gobject_get_object_property (src, "machine"); /* duration: 0:00:00.480000000 */ g_object_set (song_info, "bpm", 250L, "tpb", 16L, NULL); g_object_set (sequence, "length", 32L, NULL); bt_sequence_add_track (sequence, src, -1); bt_sequence_set_pattern (sequence, 4, 0, pattern); g_object_set (element, "wave", /* silence */ 4, NULL); GST_INFO ("-- act --"); g_object_set (src, "state", BT_MACHINE_STATE_MUTE, NULL); bt_machine_update_default_state_value (src); bt_song_play (song); check_run_main_loop_until_eos_or_error (song); GST_INFO ("-- assert --"); ck_assert_gobject_guint_eq (src, "state", BT_MACHINE_STATE_MUTE); GST_INFO ("-- cleanup --"); gst_object_unref (element); g_object_unref (pattern); g_object_unref (sequence); g_object_unref (song_info); BT_TEST_END; }
static void test_bt_setup_machine_add_updates_list (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = BT_SETUP (check_gobject_get_object_property (song, "setup")); BtMachine *source = BT_MACHINE (bt_source_machine_new (song, "src", "buzztrax-test-mono-source", 0, NULL)); GST_INFO ("-- act --"); GList *list = (GList *) check_gobject_get_ptr_property (setup, "machines"); GST_INFO ("-- assert --"); fail_unless (list != NULL, NULL); ck_assert_int_eq (g_list_length (list), 1); fail_unless ((BtMachine *) list->data == source, NULL); GST_INFO ("-- cleanup --"); g_list_free (list); g_object_unref (setup); BT_TEST_END; }
static void test_bt_setup_wire_rem_machine_id (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = BT_SETUP (check_gobject_get_object_property (song, "setup")); BtMachine *source = BT_MACHINE (bt_source_machine_new (song, "src", "buzztrax-test-mono-source", 0, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "sink", NULL)); BtWire *wire = bt_wire_new (song, source, sink, NULL); GST_INFO ("-- act --"); bt_setup_remove_wire (setup, wire); GST_INFO ("-- assert --"); ck_assert_gobject_eq_and_unref (bt_setup_get_wire_by_src_machine (setup, source), NULL); GST_INFO ("-- cleanup --"); g_object_unref (setup); BT_TEST_END; }
/* * change voices and verify that voices in machine and patetrn are in sync */ static void test_bt_machine_change_voices (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "gen", "buzztrax-test-poly-source", 1L, NULL)); BtPattern *p1 = bt_pattern_new (song, "pattern-name1", 8L, machine); BtPattern *p2 = bt_pattern_new (song, "pattern-name2", 8L, machine); GST_INFO ("-- act --"); g_object_set (machine, "voices", 2, NULL); GST_INFO ("-- assert --"); ck_assert_gobject_gulong_eq (p1, "voices", 2); ck_assert_gobject_gulong_eq (p2, "voices", 2); GST_INFO ("-- cleanup --"); g_object_unref (p1); g_object_unref (p2); BT_TEST_END; }
static void make_new_song (gint wave) { BtSequence *sequence = (BtSequence *) check_gobject_get_object_property (song, "sequence"); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "master", NULL)); BtMachine *gen = BT_MACHINE (bt_source_machine_new (song, "gen", "audiotestsrc", 0L, NULL)); BtParameterGroup *pg = bt_machine_get_global_param_group (gen); bt_wire_new (song, gen, sink, NULL); BtPattern *pattern = bt_pattern_new (song, "pattern-name", 8L, gen); GstElement *element = (GstElement *) check_gobject_get_object_property (gen, "machine"); BtSongInfo *song_info = (BtSongInfo *) check_gobject_get_object_property (song, "song-info"); gulong bpm = check_gobject_get_ulong_property (song_info, "bpm"); gulong tpb = check_gobject_get_ulong_property (song_info, "tpb"); // figure a good block size for the current tempo gint samples_per_buffer = (44100.0 * 60.0) / (bpm * tpb); g_object_set (sequence, "length", 4L, "loop", FALSE, NULL); bt_sequence_add_track (sequence, gen, -1); bt_sequence_set_pattern (sequence, 0, 0, (BtCmdPattern *) pattern); g_object_set (element, "wave", wave, "volume", 1.0, "samplesperbuffer", samples_per_buffer, NULL); bt_parameter_group_set_param_default (pg, bt_parameter_group_get_param_index (pg, "wave")); bt_parameter_group_set_param_default (pg, bt_parameter_group_get_param_index (pg, "volume")); gst_object_unref (element); g_object_unref (song_info); g_object_unref (pattern); g_object_unref (sequence); GST_INFO (" song created"); }
static void test_bt_setup_wire_add_dst_list (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtSetup *setup = BT_SETUP (check_gobject_get_object_property (song, "setup")); BtMachine *source = BT_MACHINE (bt_source_machine_new (song, "src", "buzztrax-test-mono-source", 0, NULL)); BtMachine *sink = BT_MACHINE (bt_sink_machine_new (song, "sink", NULL)); BtWire *wire = bt_wire_new (song, source, sink, NULL); GST_INFO ("-- act --"); GList *list = bt_setup_get_wires_by_dst_machine (setup, sink); GST_INFO ("-- assert --"); fail_unless (list != NULL, NULL); ck_assert_int_eq (g_list_length (list), 1); ck_assert_gobject_eq_and_unref (BT_WIRE (g_list_first (list)->data), wire); GST_INFO ("-- cleanup --"); g_list_free (list); g_object_unref (setup); BT_TEST_END; }
static void test_bt_machine_set_defaults (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *machine = BT_MACHINE (bt_source_machine_new (song, "id", "buzztrax-test-mono-source", 0, NULL)); GstObject *element = (GstObject *) check_gobject_get_object_property (machine, "machine"); GstControlBinding *cb = gst_object_get_control_binding (element, "g-uint"); g_object_set (element, "g-uint", 10, NULL); GST_INFO ("-- act --"); bt_machine_set_param_defaults (machine); GST_INFO ("-- assert --"); GValue *val = gst_control_binding_get_value (cb, G_GUINT64_CONSTANT (0)); guint uval = g_value_get_uint (val); ck_assert_int_eq (uval, 10); GST_INFO ("-- cleanup --"); gst_object_unref (element); BT_TEST_END; }
static void test_bt_wire_persistence (BT_TEST_ARGS) { BT_TEST_START; GST_INFO ("-- arrange --"); BtMachine *src = BT_MACHINE (bt_source_machine_new (song, "audiotestsrc", "audiotestsrc", 0L, NULL)); BtMachine *proc = BT_MACHINE (bt_processor_machine_new (song, "volume", "volume", 0L, NULL)); BtWire *wire = bt_wire_new (song, src, proc, NULL); GST_INFO ("-- act --"); xmlNodePtr parent = xmlNewNode (NULL, XML_CHAR_PTR ("buzztrax")); xmlNodePtr node = bt_persistence_save (BT_PERSISTENCE (wire), parent); GST_INFO ("-- assert --"); fail_unless (node != NULL, NULL); ck_assert_str_eq ((gchar *) node->name, "wire"); fail_unless (node->children != NULL, NULL); GST_INFO ("-- cleanup --"); BT_TEST_END; }