diff options
Diffstat (limited to 'test/lilv_test.c')
| -rw-r--r-- | test/lilv_test.c | 2137 |
1 files changed, 0 insertions, 2137 deletions
diff --git a/test/lilv_test.c b/test/lilv_test.c deleted file mode 100644 index 92e98be..0000000 --- a/test/lilv_test.c +++ /dev/null @@ -1,2137 +0,0 @@ -/* - Copyright 2007-2019 David Robillard <http://drobilla.net> - Copyright 2008 Krzysztof Foltman - - Permission to use, copy, modify, and/or distribute this software for any - purpose with or without fee is hereby granted, provided that the above - copyright notice and this permission notice appear in all copies. - - THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES - WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF - MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR - ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES - WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN - ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF - OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -*/ - -#define _POSIX_C_SOURCE 200809L /* for setenv */ -#define _XOPEN_SOURCE 600 /* for mkstemp */ - -#undef NDEBUG - -#include "lilv_test_utils.h" - -#include "../src/lilv_internal.h" - -#ifdef _WIN32 -# include <direct.h> -# include <io.h> -# define mkdir(path, flags) _mkdir(path) -# define setenv(n, v, r) SetEnvironmentVariable((n), (v)) -# define unsetenv(n) SetEnvironmentVariable((n), NULL) -# define mkstemp(pat) _mktemp(pat) -#else -# include <unistd.h> -#endif - -#include "lilv/lilv.h" -#include "lv2/core/lv2.h" -#include "lv2/presets/presets.h" -#include "lv2/state/state.h" -#include "lv2/urid/urid.h" -#include "serd/serd.h" - -#include <assert.h> -#include <errno.h> -#include <float.h> -#include <math.h> -#include <stdarg.h> -#include <stdbool.h> -#include <stdint.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <sys/stat.h> - -#define TEST_PATH_MAX 1024 - -#if defined(__APPLE__) -# define SHLIB_EXT ".dylib" -#elif defined(_WIN32) -# define SHLIB_EXT ".dll" -#else -# define SHLIB_EXT ".so" -#endif - -#define TEST_CASE(name) { #name, test_##name } - -typedef int (*TestFunc)(LilvTestEnv*); - -struct TestCase { - const char* title; - TestFunc func; -}; - -static int -test_value(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin\" ;" - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"Foo\" ; " - "] .")) { - return 1; - } - - LilvNode* uval = lilv_new_uri(world, "http://example.org"); - LilvNode* sval = lilv_new_string(world, "Foo"); - LilvNode* ival = lilv_new_int(world, 42); - LilvNode* fval = lilv_new_float(world, 1.6180); - - assert(lilv_node_is_uri(uval)); - assert(lilv_node_is_string(sval)); - assert(lilv_node_is_int(ival)); - assert(lilv_node_is_float(fval)); - - assert(!lilv_node_is_literal(NULL)); - assert(!lilv_node_is_literal(uval)); - assert(lilv_node_is_literal(sval)); - assert(lilv_node_is_literal(ival)); - assert(lilv_node_is_literal(fval)); - assert(!lilv_node_get_path(fval, NULL)); - - assert(!strcmp(lilv_node_as_uri(uval), "http://example.org")); - assert(!strcmp(lilv_node_as_string(sval), "Foo")); - assert(lilv_node_as_int(ival) == 42); - assert(fabs(lilv_node_as_float(fval) - 1.6180) < FLT_EPSILON); - assert(isnan(lilv_node_as_float(sval))); - -#if defined(__clang__) -# pragma clang diagnostic push -# pragma clang diagnostic ignored "-Wdeprecated-declarations" -#elif __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 6) -# pragma GCC diagnostic push -# pragma GCC diagnostic ignored "-Wdeprecated-declarations" -#endif - - assert(!strcmp(lilv_uri_to_path("file:///foo"), "/foo")); - -#if defined(__clang__) -# pragma clang diagnostic pop -#elif __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 6) -# pragma GCC diagnostic pop -#endif - - LilvNode* loc_abs = lilv_new_file_uri(world, NULL, "/foo/bar"); - LilvNode* loc_rel = lilv_new_file_uri(world, NULL, "foo"); - LilvNode* host_abs = lilv_new_file_uri(world, "host", "/foo/bar"); - LilvNode* host_rel = lilv_new_file_uri(world, "host", "foo"); - - assert(!strcmp(lilv_node_as_uri(loc_abs), "file:///foo/bar")); - assert(!strncmp(lilv_node_as_uri(loc_rel), "file:///", 8)); - assert(!strcmp(lilv_node_as_uri(host_abs), "file://host/foo/bar")); - assert(!strncmp(lilv_node_as_uri(host_rel), "file://host/", 12)); - - lilv_node_free(host_rel); - lilv_node_free(host_abs); - lilv_node_free(loc_rel); - lilv_node_free(loc_abs); - - char* tok = lilv_node_get_turtle_token(uval); - assert(!strcmp(tok, "<http://example.org>")); - lilv_free(tok); - tok = lilv_node_get_turtle_token(sval); - assert(!strcmp(tok, "Foo")); - lilv_free(tok); - tok = lilv_node_get_turtle_token(ival); - assert(!strcmp(tok, "42")); - lilv_free(tok); - tok = lilv_node_get_turtle_token(fval); - assert(!strncmp(tok, "1.6180", 6)); - lilv_free(tok); - - LilvNode* uval_e = lilv_new_uri(world, "http://example.org"); - LilvNode* sval_e = lilv_new_string(world, "Foo"); - LilvNode* ival_e = lilv_new_int(world, 42); - LilvNode* fval_e = lilv_new_float(world, 1.6180); - LilvNode* uval_ne = lilv_new_uri(world, "http://no-example.org"); - LilvNode* sval_ne = lilv_new_string(world, "Bar"); - LilvNode* ival_ne = lilv_new_int(world, 24); - LilvNode* fval_ne = lilv_new_float(world, 3.14159); - - assert(lilv_node_equals(uval, uval_e)); - assert(lilv_node_equals(sval, sval_e)); - assert(lilv_node_equals(ival, ival_e)); - assert(lilv_node_equals(fval, fval_e)); - - assert(!lilv_node_equals(uval, uval_ne)); - assert(!lilv_node_equals(sval, sval_ne)); - assert(!lilv_node_equals(ival, ival_ne)); - assert(!lilv_node_equals(fval, fval_ne)); - - assert(!lilv_node_equals(uval, sval)); - assert(!lilv_node_equals(sval, ival)); - assert(!lilv_node_equals(ival, fval)); - - LilvNode* uval_dup = lilv_node_duplicate(uval); - assert(lilv_node_equals(uval, uval_dup)); - - LilvNode* ifval = lilv_new_float(world, 42.0); - assert(!lilv_node_equals(ival, ifval)); - lilv_node_free(ifval); - - LilvNode* nil = NULL; - assert(!lilv_node_equals(uval, nil)); - assert(!lilv_node_equals(nil, uval)); - assert(lilv_node_equals(nil, nil)); - - LilvNode* nil2 = lilv_node_duplicate(nil); - assert(lilv_node_equals(nil, nil2)); - - lilv_node_free(uval); - lilv_node_free(sval); - lilv_node_free(ival); - lilv_node_free(fval); - lilv_node_free(uval_e); - lilv_node_free(sval_e); - lilv_node_free(ival_e); - lilv_node_free(fval_e); - lilv_node_free(uval_ne); - lilv_node_free(sval_ne); - lilv_node_free(ival_ne); - lilv_node_free(fval_ne); - lilv_node_free(uval_dup); - lilv_node_free(nil2); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_util(LilvTestEnv* env) -{ - assert(!lilv_realpath(NULL)); - - char a_path[16]; - char b_path[16]; - strncpy(a_path, "copy_a_XXXXXX", sizeof(a_path)); - strncpy(b_path, "copy_b_XXXXXX", sizeof(b_path)); - mkstemp(a_path); - mkstemp(b_path); - - FILE* fa = fopen(a_path, "w"); - FILE* fb = fopen(b_path, "w"); - fprintf(fa, "AA\n"); - fprintf(fb, "AB\n"); - fclose(fa); - fclose(fb); - - assert(lilv_copy_file("does/not/exist", "copy")); - assert(lilv_copy_file(a_path, "not/a/dir/copy")); - assert(!lilv_copy_file(a_path, "copy_c")); - assert(!lilv_file_equals(a_path, b_path)); - assert(lilv_file_equals(a_path, a_path)); - assert(lilv_file_equals(a_path, "copy_c")); - assert(!lilv_file_equals("does/not/exist", b_path)); - assert(!lilv_file_equals(a_path, "does/not/exist")); - assert(!lilv_file_equals("does/not/exist", "/does/not/either")); - return 0; -} - -/*****************************************************************************/ - -static int discovery_plugin_found = 0; - -static void -discovery_verify_plugin(const LilvTestEnv* env, const LilvPlugin* plugin) -{ - const LilvNode* value = lilv_plugin_get_uri(plugin); - if (lilv_node_equals(value, env->plugin1_uri)) { - const LilvNode* lib_uri = NULL; - assert(!lilv_node_equals(value, env->plugin2_uri)); - discovery_plugin_found = 1; - lib_uri = lilv_plugin_get_library_uri(plugin); - assert(lib_uri); - assert(lilv_node_is_uri(lib_uri)); - assert(lilv_node_as_uri(lib_uri)); - assert(strstr(lilv_node_as_uri(lib_uri), "foo" SHLIB_EXT)); - assert(lilv_plugin_verify(plugin)); - } -} - -static int -test_discovery(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ;" - "doap:name \"Test plugin\" ;" - "lv2:port [ a lv2:ControlPort ; a lv2:InputPort ;" - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; ] .")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - assert(lilv_plugins_size(plugins) > 0); - - const LilvPlugin* explug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(explug != NULL); - const LilvPlugin* explug2 = lilv_plugins_get_by_uri(plugins, env->plugin2_uri); - assert(explug2 == NULL); - - if (explug) { - LilvNode* name = lilv_plugin_get_name(explug); - assert(!strcmp(lilv_node_as_string(name), "Test plugin")); - lilv_node_free(name); - } - - discovery_plugin_found = 0; - LILV_FOREACH(plugins, i, plugins) - discovery_verify_plugin(env, lilv_plugins_get(plugins, i)); - - assert(discovery_plugin_found); - plugins = NULL; - - return 0; -} - -/*****************************************************************************/ - -static int -test_verify(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; " - "doap:name \"Test plugin\" ;" - "lv2:port [ a lv2:ControlPort ; a lv2:InputPort ;" - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ] .")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* explug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(explug); - assert(lilv_plugin_verify(explug)); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_no_verify(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin . ")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* explug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(explug); - assert(!lilv_plugin_verify(explug)); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_classes(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin\" ;" - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"Foo\" ; " - "] .")) { - return 1; - } - - const LilvPluginClass* plugin = lilv_world_get_plugin_class(world); - const LilvPluginClasses* classes = lilv_world_get_plugin_classes(world); - LilvPluginClasses* children = lilv_plugin_class_get_children(plugin); - - assert(lilv_plugin_class_get_parent_uri(plugin) == NULL); - assert(lilv_plugin_classes_size(classes) > lilv_plugin_classes_size(children)); - assert(!strcmp(lilv_node_as_string(lilv_plugin_class_get_label(plugin)), "Plugin")); - assert(!strcmp(lilv_node_as_string(lilv_plugin_class_get_uri(plugin)), - "http://lv2plug.in/ns/lv2core#Plugin")); - - LILV_FOREACH(plugin_classes, i, children) { - assert(lilv_node_equals( - lilv_plugin_class_get_parent_uri(lilv_plugin_classes_get(children, i)), - lilv_plugin_class_get_uri(plugin))); - } - - LilvNode* some_uri = lilv_new_uri(world, "http://example.org/whatever"); - assert(lilv_plugin_classes_get_by_uri(classes, some_uri) == NULL); - lilv_node_free(some_uri); - - lilv_plugin_classes_free(children); - - lilv_plugin_class_free(NULL); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_plugin(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin\" ;" - "lv2:optionalFeature lv2:hardRTCapable ; " - "lv2:requiredFeature <http://lv2plug.in/ns/ext/event> ; " - "lv2:extensionData <http://example.org/extdata> ;" - ":foo 1.6180 ; " - ":bar true ; " - ":baz false ; " - ":blank [ a <http://example.org/blank> ] ; " - "doap:maintainer [ foaf:name \"David Robillard\" ; " - " foaf:homepage <http://drobilla.net> ; foaf:mbox <mailto:d@drobilla.net> ] ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency ; " - " lv2:designation lv2:latency " - "] . \n" - ":thing doap:name \"Something else\" .\n")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - const LilvPluginClass* klass = lilv_plugin_get_class(plug); - const LilvNode* klass_uri = lilv_plugin_class_get_uri(klass); - assert(!strcmp(lilv_node_as_string(klass_uri), - "http://lv2plug.in/ns/lv2core#CompressorPlugin")); - - LilvNode* rdf_type = lilv_new_uri( - world, "http://www.w3.org/1999/02/22-rdf-syntax-ns#type"); - assert(lilv_world_ask(world, - lilv_plugin_get_uri(plug), - rdf_type, - klass_uri)); - lilv_node_free(rdf_type); - - assert(!lilv_plugin_is_replaced(plug)); - assert(!lilv_plugin_get_related(plug, NULL)); - - const LilvNode* plug_bundle_uri = lilv_plugin_get_bundle_uri(plug); - assert(!strcmp(lilv_node_as_string(plug_bundle_uri), env->test_bundle_uri)); - - const LilvNodes* data_uris = lilv_plugin_get_data_uris(plug); - assert(lilv_nodes_size(data_uris) == 2); - - LilvNode* project = lilv_plugin_get_project(plug); - assert(!project); - - char* manifest_uri = (char*)malloc(TEST_PATH_MAX); - char* data_uri = (char*)malloc(TEST_PATH_MAX); - snprintf(manifest_uri, TEST_PATH_MAX, "%s%s", - lilv_node_as_string(plug_bundle_uri), "manifest.ttl"); - snprintf(data_uri, TEST_PATH_MAX, "%s%s", - lilv_node_as_string(plug_bundle_uri), "plugin.ttl"); - - LilvNode* manifest_uri_val = lilv_new_uri(world, manifest_uri); - assert(lilv_nodes_contains(data_uris, manifest_uri_val)); - lilv_node_free(manifest_uri_val); - - LilvNode* data_uri_val = lilv_new_uri(world, data_uri); - assert(lilv_nodes_contains(data_uris, data_uri_val)); - lilv_node_free(data_uri_val); - - LilvNode* unknown_uri_val = lilv_new_uri(world, "http://example.org/unknown"); - assert(!lilv_nodes_contains(data_uris, unknown_uri_val)); - lilv_node_free(unknown_uri_val); - - free(manifest_uri); - free(data_uri); - - float mins[3]; - float maxs[3]; - float defs[3]; - lilv_plugin_get_port_ranges_float(plug, mins, maxs, defs); - assert(mins[0] == -1.0f); - assert(maxs[0] == 1.0f); - assert(defs[0] == 0.5f); - - LilvNode* audio_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#AudioPort"); - LilvNode* control_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#ControlPort"); - LilvNode* in_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#InputPort"); - LilvNode* out_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#OutputPort"); - - assert(lilv_plugin_get_num_ports_of_class(plug, control_class, NULL) == 3); - assert(lilv_plugin_get_num_ports_of_class(plug, audio_class, NULL) == 0); - assert(lilv_plugin_get_num_ports_of_class(plug, in_class, NULL) == 2); - assert(lilv_plugin_get_num_ports_of_class(plug, out_class, NULL) == 1); - assert(lilv_plugin_get_num_ports_of_class(plug, control_class, in_class, NULL) == 2); - assert(lilv_plugin_get_num_ports_of_class(plug, control_class, out_class, NULL) == 1); - assert(lilv_plugin_get_num_ports_of_class(plug, audio_class, in_class, NULL) == 0); - assert(lilv_plugin_get_num_ports_of_class(plug, audio_class, out_class, NULL) == 0); - - assert(lilv_plugin_has_latency(plug)); - assert(lilv_plugin_get_latency_port_index(plug) == 2); - - LilvNode* lv2_latency = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#latency"); - const LilvPort* latency_port = lilv_plugin_get_port_by_designation( - plug, out_class, lv2_latency); - lilv_node_free(lv2_latency); - - assert(latency_port); - assert(lilv_port_get_index(plug, latency_port) == 2); - assert(lilv_node_is_blank(lilv_port_get_node(plug, latency_port))); - - LilvNode* rt_feature = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#hardRTCapable"); - LilvNode* event_feature = lilv_new_uri(world, - "http://lv2plug.in/ns/ext/event"); - LilvNode* pretend_feature = lilv_new_uri(world, - "http://example.org/solvesWorldHunger"); - - assert(lilv_plugin_has_feature(plug, rt_feature)); - assert(lilv_plugin_has_feature(plug, event_feature)); - assert(!lilv_plugin_has_feature(plug, pretend_feature)); - - lilv_node_free(rt_feature); - lilv_node_free(event_feature); - lilv_node_free(pretend_feature); - - LilvNodes* supported = lilv_plugin_get_supported_features(plug); - LilvNodes* required = lilv_plugin_get_required_features(plug); - LilvNodes* optional = lilv_plugin_get_optional_features(plug); - assert(lilv_nodes_size(supported) == 2); - assert(lilv_nodes_size(required) == 1); - assert(lilv_nodes_size(optional) == 1); - lilv_nodes_free(supported); - lilv_nodes_free(required); - lilv_nodes_free(optional); - - LilvNode* foo_p = lilv_new_uri(world, "http://example.org/foo"); - LilvNodes* foos = lilv_plugin_get_value(plug, foo_p); - assert(lilv_nodes_size(foos) == 1); - assert(fabs(lilv_node_as_float(lilv_nodes_get_first(foos)) - 1.6180) < FLT_EPSILON); - lilv_node_free(foo_p); - lilv_nodes_free(foos); - - LilvNode* bar_p = lilv_new_uri(world, "http://example.org/bar"); - LilvNodes* bars = lilv_plugin_get_value(plug, bar_p); - assert(lilv_nodes_size(bars) == 1); - assert(lilv_node_as_bool(lilv_nodes_get_first(bars)) == true); - lilv_node_free(bar_p); - lilv_nodes_free(bars); - - LilvNode* baz_p = lilv_new_uri(world, "http://example.org/baz"); - LilvNodes* bazs = lilv_plugin_get_value(plug, baz_p); - assert(lilv_nodes_size(bazs) == 1); - assert(lilv_node_as_bool(lilv_nodes_get_first(bazs)) == false); - lilv_node_free(baz_p); - lilv_nodes_free(bazs); - - LilvNode* blank_p = lilv_new_uri(world, "http://example.org/blank"); - LilvNodes* blanks = lilv_plugin_get_value(plug, blank_p); - assert(lilv_nodes_size(blanks) == 1); - LilvNode* blank = lilv_nodes_get_first(blanks); - assert(lilv_node_is_blank(blank)); - const char* blank_str = lilv_node_as_blank(blank); - char* blank_tok = lilv_node_get_turtle_token(blank); - assert(!strncmp(blank_tok, "_:", 2)); - assert(!strcmp(blank_tok + 2, blank_str)); - lilv_free(blank_tok); - lilv_node_free(blank_p); - lilv_nodes_free(blanks); - - LilvNode* author_name = lilv_plugin_get_author_name(plug); - assert(!strcmp(lilv_node_as_string(author_name), "David Robillard")); - lilv_node_free(author_name); - - LilvNode* author_email = lilv_plugin_get_author_email(plug); - assert(!strcmp(lilv_node_as_string(author_email), "mailto:d@drobilla.net")); - lilv_node_free(author_email); - - LilvNode* author_homepage = lilv_plugin_get_author_homepage(plug); - assert(!strcmp(lilv_node_as_string(author_homepage), "http://drobilla.net")); - lilv_node_free(author_homepage); - - LilvNode* thing_uri = lilv_new_uri(world, "http://example.org/thing"); - LilvNode* name_p = lilv_new_uri(world, "http://usefulinc.com/ns/doap#name"); - LilvNodes* thing_names = lilv_world_find_nodes(world, thing_uri, name_p, NULL); - assert(lilv_nodes_size(thing_names) == 1); - LilvNode* thing_name = lilv_nodes_get_first(thing_names); - assert(thing_name); - assert(lilv_node_is_string(thing_name)); - assert(!strcmp(lilv_node_as_string(thing_name), "Something else")); - LilvNode* thing_name2 = lilv_world_get(world, thing_uri, name_p, NULL); - assert(lilv_node_equals(thing_name, thing_name2)); - - LilvUIs* uis = lilv_plugin_get_uis(plug); - assert(lilv_uis_size(uis) == 0); - lilv_uis_free(uis); - - LilvNode* extdata = lilv_new_uri(world, "http://example.org/extdata"); - LilvNode* noextdata = lilv_new_uri(world, "http://example.org/noextdata"); - LilvNodes* extdatas = lilv_plugin_get_extension_data(plug); - assert(lilv_plugin_has_extension_data(plug, extdata)); - assert(!lilv_plugin_has_extension_data(plug, noextdata)); - assert(lilv_nodes_size(extdatas) == 1); - assert(lilv_node_equals(lilv_nodes_get_first(extdatas), extdata)); - lilv_node_free(noextdata); - lilv_node_free(extdata); - lilv_nodes_free(extdatas); - - lilv_nodes_free(thing_names); - lilv_node_free(thing_uri); - lilv_node_free(thing_name2); - lilv_node_free(name_p); - lilv_node_free(control_class); - lilv_node_free(audio_class); - lilv_node_free(in_class); - lilv_node_free(out_class); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_project(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin with project\" ;" - "lv2:project [ " - " doap:maintainer [ " - " foaf:name \"David Robillard\" ; " - " foaf:homepage <http://drobilla.net> ; foaf:mbox <mailto:d@drobilla.net> ] ; " - "] ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency ; " - " lv2:designation lv2:latency " - "] . \n" - ":thing doap:name \"Something else\" .\n")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - LilvNode* author_name = lilv_plugin_get_author_name(plug); - assert(!strcmp(lilv_node_as_string(author_name), "David Robillard")); - lilv_node_free(author_name); - - LilvNode* author_email = lilv_plugin_get_author_email(plug); - assert(!strcmp(lilv_node_as_string(author_email), "mailto:d@drobilla.net")); - lilv_node_free(author_email); - - LilvNode* author_homepage = lilv_plugin_get_author_homepage(plug); - assert(!strcmp(lilv_node_as_string(author_homepage), "http://drobilla.net")); - lilv_node_free(author_homepage); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_no_author(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin with project\" ;" - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency ; " - " lv2:designation lv2:latency " - "] . \n" - ":thing doap:name \"Something else\" .\n")) { - return 1; - } - - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - LilvNode* author_name = lilv_plugin_get_author_name(plug); - assert(!author_name); - - LilvNode* author_email = lilv_plugin_get_author_email(plug); - assert(!author_email); - - LilvNode* author_homepage = lilv_plugin_get_author_homepage(plug); - assert(!author_homepage); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_project_no_author(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin with project\" ;" - "lv2:project [ " - " doap:name \"Fake project\" ;" - "] ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency ; " - " lv2:designation lv2:latency " - "] . \n" - ":thing doap:name \"Something else\" .\n")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - LilvNode* author_name = lilv_plugin_get_author_name(plug); - assert(!author_name); - - LilvNode* author_email = lilv_plugin_get_author_email(plug); - assert(!author_email); - - LilvNode* author_homepage = lilv_plugin_get_author_homepage(plug); - assert(!author_homepage); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_preset(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin with project\" ;" - "lv2:project [ " - " doap:name \"Fake project\" ;" - "] ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency ; " - " lv2:designation lv2:latency " - "] . \n" - "<http://example.org/preset> a pset:Preset ;" - " lv2:appliesTo :plug ;" - " rdfs:label \"some preset\" .\n")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - LilvNode* pset_Preset = lilv_new_uri(world, LV2_PRESETS__Preset); - LilvNodes* related = lilv_plugin_get_related(plug, pset_Preset); - - assert(lilv_nodes_size(related) == 1); - - lilv_node_free(pset_Preset); - lilv_nodes_free(related); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_prototype(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":prot a lv2:PluginBase ; rdfs:seeAlso <plugin.ttl> .\n" - ":plug a lv2:Plugin ; lv2:binary <inst" SHLIB_EXT "> ; lv2:prototype :prot .\n", - ":prot a lv2:Plugin ; a lv2:CompressorPlugin ; " - "lv2:project [ " - " doap:name \"Fake project\" ;" - "] ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency ; " - " lv2:designation lv2:latency " - "] . \n" - ":plug doap:name \"Instance\" .\n")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - // Test non-inherited property - LilvNode* name = lilv_plugin_get_name(plug); - assert(!strcmp(lilv_node_as_string(name), "Instance")); - lilv_node_free(name); - - // Test inherited property - const LilvNode* binary = lilv_plugin_get_library_uri(plug); - assert(strstr(lilv_node_as_string(binary), "inst" SHLIB_EXT)); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_port(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - "@prefix lv2ev: <http://lv2plug.in/ns/ext/event#> . \n" - ":plug a lv2:Plugin ; " - "doap:name \"Test plugin\" ;" - "doap:homepage <http://example.org/someplug> ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; " - " lv2:name \"store\" ; " - " lv2:name \"Laden\"@de-de ; lv2:name \"Geschaeft\"@de-at ; " - " lv2:name \"tienda\"@es ; " - " rdfs:comment \"comment\"@en , \"commentaires\"@fr ; " - " lv2:portProperty lv2:integer ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 ; " - " lv2:scalePoint [ rdfs:label \"Sin\"; rdf:value 3 ] ; " - " lv2:scalePoint [ rdfs:label \"Cos\"; rdf:value 4 ] " - "] , [\n" - " a lv2:EventPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"event_in\" ; " - " lv2:name \"Event Input\" ; " - " lv2ev:supportsEvent <http://example.org/event> ;" - " atom:supports <http://example.org/atomEvent> " - "] , [\n" - " a lv2:AudioPort ; a lv2:InputPort ; " - " lv2:index 2 ; lv2:symbol \"audio_in\" ; " - " lv2:name \"Audio Input\" ; " - "] , [\n" - " a lv2:AudioPort ; a lv2:OutputPort ; " - " lv2:index 3 ; lv2:symbol \"audio_out\" ; " - " lv2:name \"Audio Output\" ; " - "] .")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - LilvNode* psym = lilv_new_string(world, "foo"); - const LilvPort* p = lilv_plugin_get_port_by_index(plug, 0); - const LilvPort* p2 = lilv_plugin_get_port_by_symbol(plug, psym); - lilv_node_free(psym); - assert(p != NULL); - assert(p2 != NULL); - assert(p == p2); - - LilvNode* nopsym = lilv_new_string(world, "thisaintnoportfoo"); - const LilvPort* p3 = lilv_plugin_get_port_by_symbol(plug, nopsym); - assert(p3 == NULL); - lilv_node_free(nopsym); - - // Try getting an invalid property - LilvNode* num = lilv_new_int(world, 1); - LilvNodes* nothing = lilv_port_get_value(plug, p, num); - assert(!nothing); - lilv_node_free(num); - - LilvNode* audio_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#AudioPort"); - LilvNode* control_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#ControlPort"); - LilvNode* in_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#InputPort"); - LilvNode* out_class = lilv_new_uri(world, - "http://lv2plug.in/ns/lv2core#OutputPort"); - - assert(lilv_nodes_size(lilv_port_get_classes(plug, p)) == 2); - assert(lilv_plugin_get_num_ports(plug) == 4); - assert(lilv_port_is_a(plug, p, control_class)); - assert(lilv_port_is_a(plug, p, in_class)); - assert(!lilv_port_is_a(plug, p, audio_class)); - - LilvNodes* port_properties = lilv_port_get_properties(plug, p); - assert(lilv_nodes_size(port_properties) == 1); - lilv_nodes_free(port_properties); - - // Untranslated name (current locale is set to "C" in main) - assert(!strcmp(lilv_node_as_string(lilv_port_get_symbol(plug, p)), "foo")); - LilvNode* name = lilv_port_get_name(plug, p); - assert(!strcmp(lilv_node_as_string(name), "store")); - lilv_node_free(name); - - // Exact language match - set_env("LANG", "de_DE"); - name = lilv_port_get_name(plug, p); - assert(!strcmp(lilv_node_as_string(name), "Laden")); - lilv_node_free(name); - - // Exact language match (with charset suffix) - set_env("LANG", "de_AT.utf8"); - name = lilv_port_get_name(plug, p); - assert(!strcmp(lilv_node_as_string(name), "Geschaeft")); - lilv_node_free(name); - - // Partial language match (choose value translated for different country) - set_env("LANG", "de_CH"); - name = lilv_port_get_name(plug, p); - assert((!strcmp(lilv_node_as_string(name), "Laden")) - ||(!strcmp(lilv_node_as_string(name), "Geschaeft"))); - lilv_node_free(name); - - // Partial language match (choose country-less language tagged value) - set_env("LANG", "es_MX"); - name = lilv_port_get_name(plug, p); - assert(!strcmp(lilv_node_as_string(name), "tienda")); - lilv_node_free(name); - - // No language match (choose untranslated value) - set_env("LANG", "cn"); - name = lilv_port_get_name(plug, p); - assert(!strcmp(lilv_node_as_string(name), "store")); - lilv_node_free(name); - - // Invalid language - set_env("LANG", "1!"); - name = lilv_port_get_name(plug, p); - assert(!strcmp(lilv_node_as_string(name), "store")); - lilv_node_free(name); - - set_env("LANG", "en_CA.utf-8"); - - // Language tagged value with no untranslated values - LilvNode* rdfs_comment = lilv_new_uri(world, LILV_NS_RDFS "comment"); - LilvNodes* comments = lilv_port_get_value(plug, p, rdfs_comment); - assert(!strcmp(lilv_node_as_string(lilv_nodes_get_first(comments)), - "comment")); - LilvNode* comment = lilv_port_get(plug, p, rdfs_comment); - assert(!strcmp(lilv_node_as_string(comment), "comment")); - lilv_node_free(comment); - lilv_nodes_free(comments); - - set_env("LANG", "fr"); - - comments = lilv_port_get_value(plug, p, rdfs_comment); - assert(!strcmp(lilv_node_as_string(lilv_nodes_get_first(comments)), - "commentaires")); - lilv_nodes_free(comments); - - set_env("LANG", "cn"); - - comments = lilv_port_get_value(plug, p, rdfs_comment); - assert(!comments); - lilv_nodes_free(comments); - - lilv_node_free(rdfs_comment); - - set_env("LANG", "C"); // Reset locale - - LilvScalePoints* points = lilv_port_get_scale_points(plug, p); - assert(lilv_scale_points_size(points) == 2); - - LilvIter* sp_iter = lilv_scale_points_begin(points); - const LilvScalePoint* sp0 = lilv_scale_points_get(points, sp_iter); - assert(sp0); - sp_iter = lilv_scale_points_next(points, sp_iter); - const LilvScalePoint* sp1 = lilv_scale_points_get(points, sp_iter); - assert(sp1); - - assert( - ((!strcmp(lilv_node_as_string(lilv_scale_point_get_label(sp0)), "Sin") - && lilv_node_as_float(lilv_scale_point_get_value(sp0)) == 3) - && - (!strcmp(lilv_node_as_string(lilv_scale_point_get_label(sp1)), "Cos") - && lilv_node_as_float(lilv_scale_point_get_value(sp1)) == 4)) - || - ((!strcmp(lilv_node_as_string(lilv_scale_point_get_label(sp0)), "Cos") - && lilv_node_as_float(lilv_scale_point_get_value(sp0)) == 4) - && - (!strcmp(lilv_node_as_string(lilv_scale_point_get_label(sp1)), "Sin") - && lilv_node_as_float(lilv_scale_point_get_value(sp1)) == 3))); - - LilvNode* homepage_p = lilv_new_uri(world, "http://usefulinc.com/ns/doap#homepage"); - LilvNodes* homepages = lilv_plugin_get_value(plug, homepage_p); - assert(lilv_nodes_size(homepages) == 1); - assert(!strcmp(lilv_node_as_string(lilv_nodes_get_first(homepages)), - "http://example.org/someplug")); - - LilvNode *min, *max, *def; - lilv_port_get_range(plug, p, &def, &min, &max); - assert(def); - assert(min); - assert(max); - assert(lilv_node_as_float(def) == 0.5); - assert(lilv_node_as_float(min) == -1.0); - assert(lilv_node_as_float(max) == 1.0); - - LilvNode* integer_prop = lilv_new_uri(world, "http://lv2plug.in/ns/lv2core#integer"); - LilvNode* toggled_prop = lilv_new_uri(world, "http://lv2plug.in/ns/lv2core#toggled"); - - assert(lilv_port_has_property(plug, p, integer_prop)); - assert(!lilv_port_has_property(plug, p, toggled_prop)); - - const LilvPort* ep = lilv_plugin_get_port_by_index(plug, 1); - - LilvNode* event_type = lilv_new_uri(world, "http://example.org/event"); - LilvNode* event_type_2 = lilv_new_uri(world, "http://example.org/otherEvent"); - LilvNode* atom_event = lilv_new_uri(world, "http://example.org/atomEvent"); - assert(lilv_port_supports_event(plug, ep, event_type)); - assert(!lilv_port_supports_event(plug, ep, event_type_2)); - assert(lilv_port_supports_event(plug, ep, atom_event)); - - LilvNode* name_p = lilv_new_uri(world, "http://lv2plug.in/ns/lv2core#name"); - LilvNodes* names = lilv_port_get_value(plug, p, name_p); - assert(lilv_nodes_size(names) == 1); - assert(!strcmp(lilv_node_as_string(lilv_nodes_get_first(names)), - "store")); - lilv_nodes_free(names); - - LilvNode* true_val = lilv_new_bool(world, true); - LilvNode* false_val = lilv_new_bool(world, false); - - assert(!lilv_node_equals(true_val, false_val)); - - lilv_world_set_option(world, LILV_OPTION_FILTER_LANG, false_val); - names = lilv_port_get_value(plug, p, name_p); - assert(lilv_nodes_size(names) == 4); - lilv_nodes_free(names); - lilv_world_set_option(world, LILV_OPTION_FILTER_LANG, true_val); - - lilv_node_free(false_val); - lilv_node_free(true_val); - - names = lilv_port_get_value(plug, ep, name_p); - assert(lilv_nodes_size(names) == 1); - assert(!strcmp(lilv_node_as_string(lilv_nodes_get_first(names)), - "Event Input")); - - const LilvPort* ap_in = lilv_plugin_get_port_by_index(plug, 2); - - assert(lilv_port_is_a(plug, ap_in, in_class)); - assert(!lilv_port_is_a(plug, ap_in, out_class)); - assert(lilv_port_is_a(plug, ap_in, audio_class)); - assert(!lilv_port_is_a(plug, ap_in, control_class)); - - const LilvPort* ap_out = lilv_plugin_get_port_by_index(plug, 3); - - assert(lilv_port_is_a(plug, ap_out, out_class)); - assert(!lilv_port_is_a(plug, ap_out, in_class)); - assert(lilv_port_is_a(plug, ap_out, audio_class)); - assert(!lilv_port_is_a(plug, ap_out, control_class)); - - assert(lilv_plugin_get_num_ports_of_class(plug, control_class, in_class , NULL) == 1); - assert(lilv_plugin_get_num_ports_of_class(plug, audio_class , in_class , NULL) == 1); - assert(lilv_plugin_get_num_ports_of_class(plug, audio_class , out_class, NULL) == 1); - - lilv_nodes_free(names); - lilv_node_free(name_p); - - lilv_node_free(integer_prop); - lilv_node_free(toggled_prop); - lilv_node_free(event_type); - lilv_node_free(event_type_2); - lilv_node_free(atom_event); - - lilv_node_free(min); - lilv_node_free(max); - lilv_node_free(def); - - lilv_node_free(homepage_p); - lilv_nodes_free(homepages); - - lilv_scale_points_free(points); - lilv_node_free(control_class); - lilv_node_free(audio_class); - lilv_node_free(out_class); - lilv_node_free(in_class); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static unsigned -ui_supported(const char* container_type_uri, - const char* ui_type_uri) -{ - return !strcmp(container_type_uri, ui_type_uri); -} - -static int -test_ui(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - "@prefix lv2ui: <http://lv2plug.in/ns/extensions/ui#> .\n" - ":plug a lv2:Plugin ; a lv2:CompressorPlugin ; " - "doap:name \"Test plugin\" ;" - "lv2:optionalFeature lv2:hardRTCapable ; " - "lv2:requiredFeature <http://lv2plug.in/ns/ext/event> ; " - "lv2ui:ui :ui , :ui2 , :ui3 , :ui4 ; " - "doap:maintainer [ foaf:name \"David Robillard\" ; " - " foaf:homepage <http://drobilla.net> ; foaf:mbox <mailto:d@drobilla.net> ] ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"foo\" ; lv2:name \"bar\" ; " - " lv2:minimum -1.0 ; lv2:maximum 1.0 ; lv2:default 0.5 " - "] , [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 1 ; lv2:symbol \"bar\" ; lv2:name \"Baz\" ; " - " lv2:minimum -2.0 ; lv2:maximum 2.0 ; lv2:default 1.0 " - "] , [ " - " a lv2:ControlPort ; a lv2:OutputPort ; " - " lv2:index 2 ; lv2:symbol \"latency\" ; lv2:name \"Latency\" ; " - " lv2:portProperty lv2:reportsLatency " - "] .\n" - ":ui a lv2ui:GtkUI ; " - " lv2ui:requiredFeature lv2ui:makeResident ; " - " lv2ui:binary <ui" SHLIB_EXT "> ; " - " lv2ui:optionalFeature lv2ui:ext_presets . " - ":ui2 a lv2ui:GtkUI ; lv2ui:binary <ui2" SHLIB_EXT "> . " - ":ui3 a lv2ui:GtkUI ; lv2ui:binary <ui3" SHLIB_EXT "> . " - ":ui4 a lv2ui:GtkUI ; lv2ui:binary <ui4" SHLIB_EXT "> . ")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - LilvUIs* uis = lilv_plugin_get_uis(plug); - assert(lilv_uis_size(uis) == 4); - - const LilvUI* ui0 = lilv_uis_get(uis, lilv_uis_begin(uis)); - assert(ui0); - - LilvNode* ui_uri = lilv_new_uri(world, "http://example.org/ui"); - LilvNode* ui2_uri = lilv_new_uri(world, "http://example.org/ui3"); - LilvNode* ui3_uri = lilv_new_uri(world, "http://example.org/ui4"); - LilvNode* noui_uri = lilv_new_uri(world, "http://example.org/notaui"); - - const LilvUI* ui0_2 = lilv_uis_get_by_uri(uis, ui_uri); - assert(ui0 == ui0_2); - assert(lilv_node_equals(lilv_ui_get_uri(ui0_2), ui_uri)); - - const LilvUI* ui2 = lilv_uis_get_by_uri(uis, ui2_uri); - assert(ui2 != ui0); - - const LilvUI* ui3 = lilv_uis_get_by_uri(uis, ui3_uri); - assert(ui3 != ui0); - - const LilvUI* noui = lilv_uis_get_by_uri(uis, noui_uri); - assert(noui == NULL); - - const LilvNodes* classes = lilv_ui_get_classes(ui0); - assert(lilv_nodes_size(classes) == 1); - - LilvNode* ui_class_uri = lilv_new_uri(world, - "http://lv2plug.in/ns/extensions/ui#GtkUI"); - - LilvNode* unknown_ui_class_uri = lilv_new_uri(world, - "http://example.org/mysteryUI"); - - assert(lilv_node_equals(lilv_nodes_get_first(classes), ui_class_uri)); - assert(lilv_ui_is_a(ui0, ui_class_uri)); - - const LilvNode* ui_type = NULL; - assert(lilv_ui_is_supported(ui0, ui_supported, ui_class_uri, &ui_type)); - assert(!lilv_ui_is_supported(ui0, ui_supported, unknown_ui_class_uri, &ui_type)); - assert(lilv_node_equals(ui_type, ui_class_uri)); - - const LilvNode* plug_bundle_uri = lilv_plugin_get_bundle_uri(plug); - const LilvNode* ui_bundle_uri = lilv_ui_get_bundle_uri(ui0); - assert(lilv_node_equals(plug_bundle_uri, ui_bundle_uri)); - - char* ui_binary_uri_str = (char*)malloc(TEST_PATH_MAX); - snprintf(ui_binary_uri_str, TEST_PATH_MAX, "%s%s", - lilv_node_as_string(plug_bundle_uri), "ui" SHLIB_EXT); - - const LilvNode* ui_binary_uri = lilv_ui_get_binary_uri(ui0); - - LilvNode* expected_uri = lilv_new_uri(world, ui_binary_uri_str); - assert(lilv_node_equals(expected_uri, ui_binary_uri)); - - free(ui_binary_uri_str); - lilv_node_free(unknown_ui_class_uri); - lilv_node_free(ui_class_uri); - lilv_node_free(ui_uri); - lilv_node_free(ui2_uri); - lilv_node_free(ui3_uri); - lilv_node_free(noui_uri); - lilv_node_free(expected_uri); - lilv_uis_free(uis); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -#ifndef _WIN32 - -uint32_t atom_Float = 0; -float in = 1.0; -float out = 42.0; -float control = 1234.0; - -static const void* -get_port_value(const char* port_symbol, - void* user_data, - uint32_t* size, - uint32_t* type) -{ - if (!strcmp(port_symbol, "input")) { - *size = sizeof(float); - *type = atom_Float; - return ∈ - } else if (!strcmp(port_symbol, "output")) { - *size = sizeof(float); - *type = atom_Float; - return &out; - } else if (!strcmp(port_symbol, "control")) { - *size = sizeof(float); - *type = atom_Float; - return &control; - } else { - fprintf(stderr, "error: get_port_value for nonexistent port `%s'\n", - port_symbol); - *size = *type = 0; - return NULL; - } -} - -static void -set_port_value(const char* port_symbol, - void* user_data, - const void* value, - uint32_t size, - uint32_t type) -{ - if (!strcmp(port_symbol, "input")) { - in = *(const float*)value; - } else if (!strcmp(port_symbol, "output")) { - out = *(const float*)value; - } else if (!strcmp(port_symbol, "control")) { - control = *(const float*)value; - } else { - fprintf(stderr, "error: set_port_value for nonexistent port `%s'\n", - port_symbol); - } -} - -char** uris = NULL; -size_t n_uris = 0; - -static LV2_URID -map_uri(LV2_URID_Map_Handle handle, - const char* uri) -{ - for (size_t i = 0; i < n_uris; ++i) { - if (!strcmp(uris[i], uri)) { - return i + 1; - } - } - - assert(serd_uri_string_has_scheme((const uint8_t*)uri)); - uris = (char**)realloc(uris, ++n_uris * sizeof(char*)); - uris[n_uris - 1] = lilv_strdup(uri); - return n_uris; -} - -static const char* -unmap_uri(LV2_URID_Map_Handle handle, - LV2_URID urid) -{ - if (urid > 0 && urid <= n_uris) { - return uris[urid - 1]; - } - return NULL; -} - -static char* temp_dir = NULL; - -static char* -lilv_make_path(LV2_State_Make_Path_Handle handle, - const char* path) -{ - return lilv_path_join(temp_dir, path); -} - -static void -lilv_free_path(LV2_State_Free_Path_Handle handle, char* path) -{ - lilv_free(path); -} - -static int -test_state(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - uint8_t* abs_bundle = (uint8_t*)lilv_path_absolute(LILV_TEST_BUNDLE); - SerdNode bundle = serd_node_new_file_uri(abs_bundle, 0, 0, true); - LilvNode* bundle_uri = lilv_new_uri(world, (const char*)bundle.buf); - LilvNode* plugin_uri = lilv_new_uri(world, - "http://example.org/lilv-test-plugin"); - lilv_world_load_bundle(world, bundle_uri); - free(abs_bundle); - serd_node_free(&bundle); - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plugin = lilv_plugins_get_by_uri(plugins, plugin_uri); - assert(plugin); - - LV2_URID_Map map = { NULL, map_uri }; - LV2_Feature map_feature = { LV2_URID_MAP_URI, &map }; - LV2_URID_Unmap unmap = { NULL, unmap_uri }; - LV2_Feature unmap_feature = { LV2_URID_UNMAP_URI, &unmap }; - const LV2_Feature* features[] = { &map_feature, &unmap_feature, NULL }; - - atom_Float = map.map(map.handle, "http://lv2plug.in/ns/ext/atom#Float"); - - LilvNode* num = lilv_new_int(world, 5); - LilvState* nostate = lilv_state_new_from_file(world, &map, num, "/junk"); - assert(!nostate); - - LilvInstance* instance = lilv_plugin_instantiate(plugin, 48000.0, features); - assert(instance); - lilv_instance_activate(instance); - lilv_instance_connect_port(instance, 0, &in); - lilv_instance_connect_port(instance, 1, &out); - lilv_instance_run(instance, 1); - assert(in == 1.0); - assert(out == 1.0); - - temp_dir = lilv_realpath("temp"); - - const char* scratch_dir = NULL; - char* copy_dir = NULL; - char* link_dir = NULL; - char* save_dir = NULL; - - // Get instance state state - LilvState* state = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, save_dir, - get_port_value, world, 0, NULL); - - // Get another instance state - LilvState* state2 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, save_dir, - get_port_value, world, 0, NULL); - - // Ensure they are equal - assert(lilv_state_equals(state, state2)); - - // Check that we can't delete unsaved state - assert(lilv_state_delete(world, state)); - - // Check that state has no URI - assert(!lilv_state_get_uri(state)); - - // Check that we can't save a state with no URI - char* bad_state_str = lilv_state_to_string( - world, &map, &unmap, state, NULL, NULL); - assert(!bad_state_str); - - // Check that we can't restore the NULL string (and it doesn't crash) - LilvState* bad_state = lilv_state_new_from_string(world, &map, NULL); - assert(!bad_state); - - // Save state to a string - char* state1_str = lilv_state_to_string( - world, &map, &unmap, state, "http://example.org/state1", NULL); - - // Restore from string - LilvState* from_str = lilv_state_new_from_string(world, &map, state1_str); - - // Ensure they are equal - assert(lilv_state_equals(state, from_str)); - lilv_free(state1_str); - - const LilvNode* state_plugin_uri = lilv_state_get_plugin_uri(state); - assert(lilv_node_equals(state_plugin_uri, plugin_uri)); - - // Tinker with the label of the first state - assert(lilv_state_get_label(state) == NULL); - lilv_state_set_label(state, "Test State Old Label"); - assert(!strcmp(lilv_state_get_label(state), "Test State Old Label")); - lilv_state_set_label(state, "Test State"); - assert(!strcmp(lilv_state_get_label(state), "Test State")); - - assert(!lilv_state_equals(state, state2)); // Label changed - - // Run and get a new instance state (which should now differ) - lilv_instance_run(instance, 1); - LilvState* state3 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, save_dir, - get_port_value, world, 0, NULL); - assert(!lilv_state_equals(state2, state3)); // num_runs changed - - // Restore instance state to original state - lilv_state_restore(state2, instance, set_port_value, NULL, 0, NULL); - - // Take a new snapshot and ensure it matches the set state - LilvState* state4 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, save_dir, - get_port_value, world, 0, NULL); - assert(lilv_state_equals(state2, state4)); - - // Set some metadata properties - lilv_state_set_metadata(state, map.map(map.handle, LILV_NS_RDFS "comment"), - "This is a comment", - strlen("This is a comment") + 1, - map.map(map.handle, "http://lv2plug.in/ns/ext/atom#Literal"), - LV2_STATE_IS_POD); - lilv_state_set_metadata(state, map.map(map.handle, "http://example.org/metablob"), - "LIVEBEEF", - strlen("LIVEBEEF") + 1, - map.map(map.handle, "http://example.org/MetaBlob"), - 0); - - // Save state to a directory - int ret = lilv_state_save(world, &map, &unmap, state, NULL, - "state/state.lv2", "state.ttl"); - assert(!ret); - - // Load state from directory - LilvState* state5 = lilv_state_new_from_file(world, &map, NULL, - "state/state.lv2/state.ttl"); - - assert(lilv_state_equals(state, state5)); // Round trip accuracy - assert(lilv_state_get_num_properties(state) == 8); - - // Attempt to save state to nowhere (error) - ret = lilv_state_save(world, &map, &unmap, state, NULL, NULL, NULL); - assert(ret); - - // Save another state to the same directory (update manifest) - ret = lilv_state_save(world, &map, &unmap, state, NULL, - "state/state.lv2", "state2.ttl"); - assert(!ret); - - // Save state with URI to a directory - const char* state_uri = "http://example.org/state"; - ret = lilv_state_save(world, &map, &unmap, state, state_uri, - "state/state6.lv2", "state6.ttl"); - assert(!ret); - - // Load state bundle into world and verify it matches - { - uint8_t* state6_path = (uint8_t*)lilv_path_absolute("state/state6.lv2/"); - SerdNode state6_uri = serd_node_new_file_uri(state6_path, 0, 0, true); - LilvNode* state6_bundle = lilv_new_uri(world, (const char*)state6_uri.buf); - LilvNode* state6_node = lilv_new_uri(world, state_uri); - lilv_world_load_bundle(world, state6_bundle); - lilv_world_load_resource(world, state6_node); - serd_node_free(&state6_uri); - lilv_free(state6_path); - - LilvState* state6 = lilv_state_new_from_world(world, &map, state6_node); - assert(lilv_state_equals(state, state6)); // Round trip accuracy - - // Check that loaded state has correct URI - assert(lilv_state_get_uri(state6)); - assert(!strcmp(lilv_node_as_string(lilv_state_get_uri(state6)), - state_uri)); - - // Unload state from world - lilv_world_unload_resource(world, state6_node); - lilv_world_unload_bundle(world, state6_bundle); - - // Ensure that it is no longer present - assert(!lilv_state_new_from_world(world, &map, state6_node)); - lilv_node_free(state6_bundle); - lilv_node_free(state6_node); - - // Delete state - lilv_state_delete(world, state6); - lilv_state_free(state6); - } - - // Make directories and test files support - mkdir("temp", 0700); - scratch_dir = temp_dir; - mkdir("files", 0700); - copy_dir = lilv_realpath("files"); - mkdir("links", 0700); - link_dir = lilv_realpath("links"); - - LV2_State_Make_Path make_path = { NULL, lilv_make_path }; - LV2_Feature make_path_feature = { LV2_STATE__makePath, &make_path }; - LV2_State_Free_Path free_path = { NULL, lilv_free_path }; - LV2_Feature free_path_feature = { LV2_STATE__freePath, &free_path }; - const LV2_Feature* ffeatures[] = { - &make_path_feature, &map_feature, &free_path_feature, NULL - }; - - lilv_instance_deactivate(instance); - lilv_instance_free(instance); - instance = lilv_plugin_instantiate(plugin, 48000.0, ffeatures); - lilv_instance_activate(instance); - lilv_instance_connect_port(instance, 0, &in); - lilv_instance_connect_port(instance, 1, &out); - lilv_instance_run(instance, 1); - - // Test instantiating twice - LilvInstance* instance2 = lilv_plugin_instantiate(plugin, 48000.0, ffeatures); - if (!instance2) { - fprintf(stderr, - "Failed to create multiple instances of <%s>\n", - lilv_node_as_uri(state_plugin_uri)); - return 1; - } - lilv_instance_free(instance2); - - // Get instance state state - LilvState* fstate = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, "state/fstate.lv2", - get_port_value, world, 0, ffeatures); - - { - // Get another instance state - LilvState* fstate2 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, "state/fstate2.lv2", - get_port_value, world, 0, ffeatures); - - // Check that it is identical - assert(lilv_state_equals(fstate, fstate2)); - - lilv_state_delete(world, fstate2); - lilv_state_free(fstate2); - } - - // Run, writing more to rec file - lilv_instance_run(instance, 2); - - // Get yet another instance state - LilvState* fstate3 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, "state/fstate3.lv2", - get_port_value, world, 0, ffeatures); - - // Should be different - assert(!lilv_state_equals(fstate, fstate3)); - - // Save state to a directory - ret = lilv_state_save(world, &map, &unmap, fstate, NULL, - "state/fstate.lv2", "fstate.ttl"); - assert(!ret); - - // Load state from directory - LilvState* fstate4 = lilv_state_new_from_file( - world, &map, NULL, "state/fstate.lv2/fstate.ttl"); - assert(lilv_state_equals(fstate, fstate4)); // Round trip accuracy - - // Restore instance state to loaded state - lilv_state_restore(fstate4, instance, set_port_value, NULL, 0, ffeatures); - - // Take a new snapshot and ensure it matches - LilvState* fstate5 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, "state/fstate5.lv2", - get_port_value, world, 0, ffeatures); - assert(lilv_state_equals(fstate3, fstate5)); - - // Save state to a (different) directory again - ret = lilv_state_save(world, &map, &unmap, fstate, NULL, - "state/fstate6.lv2", "fstate6.ttl"); - assert(!ret); - - // Reload it and ensure it's identical to the other loaded version - LilvState* fstate6 = lilv_state_new_from_file( - world, &map, NULL, "state/fstate6.lv2/fstate6.ttl"); - assert(lilv_state_equals(fstate4, fstate6)); - - // Run, changing rec file (without changing size) - lilv_instance_run(instance, 3); - - // Take a new snapshot - LilvState* fstate7 = lilv_state_new_from_instance( - plugin, instance, &map, - scratch_dir, copy_dir, link_dir, "state/fstate7.lv2", - get_port_value, world, 0, ffeatures); - assert(!lilv_state_equals(fstate6, fstate7)); - - // Save the changed state to a (different) directory again - ret = lilv_state_save(world, &map, &unmap, fstate7, NULL, - "state/fstate7.lv2", "fstate7.ttl"); - assert(!ret); - - // Reload it and ensure it's changed - LilvState* fstate72 = lilv_state_new_from_file( - world, &map, NULL, "state/fstate7.lv2/fstate7.ttl"); - assert(lilv_state_equals(fstate72, fstate7)); - assert(!lilv_state_equals(fstate6, fstate72)); - - // Delete saved state we still have a state in memory that points to - lilv_state_delete(world, fstate7); - lilv_state_delete(world, fstate6); - lilv_state_delete(world, fstate5); - lilv_state_delete(world, fstate3); - lilv_state_delete(world, fstate); - lilv_state_delete(world, state2); - lilv_state_delete(world, state); - - // Delete remaining states on disk we've lost a reference to - const char* const old_state_paths[] = {"state/state.lv2/state.ttl", - "state/state.lv2/state2.ttl", - "state/fstate.lv2/fstate.ttl", - NULL}; - - for (const char*const* p = old_state_paths; *p; ++p) { - const char* path = *p; - LilvState* old_state = - lilv_state_new_from_file(world, &map, NULL, path); - lilv_state_delete(world, old_state); - lilv_state_free(old_state); - } - - lilv_instance_deactivate(instance); - lilv_instance_free(instance); - - lilv_node_free(num); - - lilv_state_free(state); - lilv_state_free(from_str); - lilv_state_free(state2); - lilv_state_free(state3); - lilv_state_free(state4); - lilv_state_free(state5); - lilv_state_free(fstate); - lilv_state_free(fstate3); - lilv_state_free(fstate4); - lilv_state_free(fstate5); - lilv_state_free(fstate6); - lilv_state_free(fstate7); - lilv_state_free(fstate72); - - rmdir("state"); - - // Free URI map - for (size_t i = 0; i < n_uris; ++i) { - free(uris[i]); - } - free(uris); - n_uris = 0; - - lilv_node_free(plugin_uri); - lilv_node_free(bundle_uri); - free(link_dir); - free(copy_dir); - free(temp_dir); - - return 0; -} -#endif - -/*****************************************************************************/ - -static int -test_bad_port_symbol(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; " - "doap:name \"Test plugin\" ;" - "doap:homepage <http://example.org/someplug> ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index 0 ; lv2:symbol \"0invalid\" ;" - " lv2:name \"Invalid\" ; " - "] .")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - - uint32_t n_ports = lilv_plugin_get_num_ports(plug); - assert(n_ports == 0); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_bad_port_index(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; " - "doap:name \"Test plugin\" ;" - "doap:homepage <http://example.org/someplug> ; " - "lv2:port [ " - " a lv2:ControlPort ; a lv2:InputPort ; " - " lv2:index \"notaninteger\" ; lv2:symbol \"invalid\" ;" - " lv2:name \"Invalid\" ; " - "] .")) { - return 1; - } - - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - - uint32_t n_ports = lilv_plugin_get_num_ports(plug); - assert(n_ports == 0); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -static int -test_string(LilvTestEnv* env) -{ - char* s = NULL; - - assert(!strcmp((s = lilv_dirname("/foo/bar")), "/foo")); free(s); - assert(!strcmp((s = lilv_dirname("/foo/bar/")), "/foo")); free(s); - assert(!strcmp((s = lilv_dirname("/foo///bar/")), "/foo")); free(s); - assert(!strcmp((s = lilv_dirname("/foo///bar//")), "/foo")); free(s); - assert(!strcmp((s = lilv_dirname("foo")), ".")); free(s); - assert(!strcmp((s = lilv_dirname("/foo")), "/")); free(s); - assert(!strcmp((s = lilv_dirname("/")), "/")); free(s); - assert(!strcmp((s = lilv_dirname("//")), "/")); free(s); - assert(!strcmp((s = lilv_path_relative_to("/a/b", "/a/")), "b")); free(s); - assert(!strcmp((s = lilv_path_relative_to("/a", "/b/c/")), "/a")); free(s); - assert(!strcmp((s = lilv_path_relative_to("/a/b/c", "/a/b/d/")), "../c")); free(s); - assert(!strcmp((s = lilv_path_relative_to("/a/b/c", "/a/b/d/e/")), "../../c")); free(s); - assert(!strcmp((s = lilv_path_join("/a", "b")), "/a/b")); free(s); - assert(!strcmp((s = lilv_path_join("/a", "/b")), "/a/b")); free(s); - assert(!strcmp((s = lilv_path_join("/a/", "/b")), "/a/b")); free(s); - assert(!strcmp((s = lilv_path_join("/a/", "b")), "/a/b")); free(s); - assert(!strcmp((s = lilv_path_join("/a", NULL)), "/a/")); free(s); - assert(!strcmp((s = lilv_path_join(NULL, "/b")), "/b")); free(s); - -#ifndef _WIN32 - setenv("LILV_TEST_1", "test", 1); - char* home_foo = lilv_strjoin(getenv("HOME"), "/foo", NULL); - assert(!strcmp((s = lilv_expand("$LILV_TEST_1")), "test")); free(s); - assert(!strcmp((s = lilv_expand("~")), getenv("HOME"))); free(s); - assert(!strcmp((s = lilv_expand("~foo")), "~foo")); free(s); - assert(!strcmp((s = lilv_expand("~/foo")), home_foo)); free(s); - assert(!strcmp((s = lilv_expand("$NOT_A_VAR")), "$NOT_A_VAR")); free(s); - free(home_foo); - unsetenv("LILV_TEST_1"); -#endif - - return 0; -} - -/*****************************************************************************/ - -static int -test_world(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - LilvNode* num = lilv_new_int(env->world, 4); - LilvNode* uri = lilv_new_uri(env->world, "http://example.org/object"); - - LilvNodes* matches = lilv_world_find_nodes(world, num, NULL, NULL); - assert(!matches); - - matches = lilv_world_find_nodes(world, NULL, num, NULL); - assert(!matches); - - matches = lilv_world_find_nodes(world, NULL, uri, NULL); - assert(!matches); - - lilv_node_free(uri); - lilv_node_free(num); - - lilv_world_unload_bundle(world, NULL); - - return 0; -} - -/*****************************************************************************/ - -static int -test_reload_bundle(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - // Create a simple plugin bundle - create_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; " - "doap:name \"First name\" ."); - - lilv_world_load_specifications(world); - - // Load bundle - LilvNode* bundle_uri = lilv_new_uri(world, env->test_bundle_uri); - lilv_world_load_bundle(world, bundle_uri); - - // Check that plugin is present - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* plug = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug); - - // Check that plugin name is correct - LilvNode* name = lilv_plugin_get_name(plug); - assert(!strcmp(lilv_node_as_string(name), "First name")); - lilv_node_free(name); - - // Unload bundle from world and delete it - lilv_world_unload_bundle(world, bundle_uri); - delete_bundle(env); - - // Create a new version of the same bundle, but with a different name - create_bundle(env, - ":plug a lv2:Plugin ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; " - "doap:name \"Second name\" ."); - - // Check that plugin is no longer in the world's plugin list - assert(lilv_plugins_size(plugins) == 0); - - // Load new bundle - lilv_world_load_bundle(world, bundle_uri); - - // Check that plugin is present again and is the same LilvPlugin - const LilvPlugin* plug2 = lilv_plugins_get_by_uri(plugins, env->plugin1_uri); - assert(plug2); - assert(plug2 == plug); - - // Check that plugin now has new name - LilvNode* name2 = lilv_plugin_get_name(plug2); - assert(name2); - assert(!strcmp(lilv_node_as_string(name2), "Second name")); - lilv_node_free(name2); - - // Load new bundle again (noop) - lilv_world_load_bundle(world, bundle_uri); - - lilv_node_free(bundle_uri); - delete_bundle(env); - - return 0; -} - -/*****************************************************************************/ - -static int -test_replace_version(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - LilvNode* plug_uri = lilv_new_uri(world, "http://example.org/versioned"); - LilvNode* lv2_minorVersion = lilv_new_uri(world, LV2_CORE__minorVersion); - LilvNode* lv2_microVersion = lilv_new_uri(world, LV2_CORE__microVersion); - LilvNode* minor = NULL; - LilvNode* micro = NULL; - - char* old_bundle_path = lilv_strjoin(LILV_TEST_DIR, "old_version.lv2/", 0); - - // Load plugin from old bundle - LilvNode* old_bundle = lilv_new_file_uri(world, NULL, old_bundle_path); - lilv_world_load_bundle(world, old_bundle); - lilv_world_load_resource(world, plug_uri); - - // Check version - const LilvPlugins* plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* old_plug = lilv_plugins_get_by_uri(plugins, plug_uri); - assert(old_plug); - minor = lilv_world_get(world, plug_uri, lv2_minorVersion, 0); - micro = lilv_world_get(world, plug_uri, lv2_microVersion, 0); - assert(!strcmp(lilv_node_as_string(minor), "1")); - assert(!strcmp(lilv_node_as_string(micro), "0")); - lilv_node_free(micro); - lilv_node_free(minor); - - char* new_bundle_path = lilv_strjoin(LILV_TEST_DIR, "new_version.lv2/", 0); - - // Load plugin from new bundle - LilvNode* new_bundle = lilv_new_file_uri(world, NULL, new_bundle_path); - lilv_world_load_bundle(world, new_bundle); - lilv_world_load_resource(world, plug_uri); - - // Check that version in the world model has changed - plugins = lilv_world_get_all_plugins(world); - const LilvPlugin* new_plug = lilv_plugins_get_by_uri(plugins, plug_uri); - assert(new_plug); - assert(lilv_node_equals(lilv_plugin_get_bundle_uri(new_plug), new_bundle)); - minor = lilv_world_get(world, plug_uri, lv2_minorVersion, 0); - micro = lilv_world_get(world, plug_uri, lv2_microVersion, 0); - assert(!strcmp(lilv_node_as_string(minor), "2")); - assert(!strcmp(lilv_node_as_string(micro), "1")); - lilv_node_free(micro); - lilv_node_free(minor); - - // Try to load the old version again - lilv_world_load_bundle(world, old_bundle); - lilv_world_load_resource(world, plug_uri); - - // Check that version in the world model has not changed - plugins = lilv_world_get_all_plugins(world); - new_plug = lilv_plugins_get_by_uri(plugins, plug_uri); - assert(new_plug); - minor = lilv_world_get(world, plug_uri, lv2_minorVersion, 0); - micro = lilv_world_get(world, plug_uri, lv2_microVersion, 0); - assert(!strcmp(lilv_node_as_string(minor), "2")); - assert(!strcmp(lilv_node_as_string(micro), "1")); - lilv_node_free(micro); - lilv_node_free(minor); - - lilv_node_free(new_bundle); - lilv_node_free(old_bundle); - free(new_bundle_path); - free(old_bundle_path); - lilv_node_free(plug_uri); - lilv_node_free(lv2_minorVersion); - lilv_node_free(lv2_microVersion); - return 0; -} - -/*****************************************************************************/ - -static int -test_get_symbol(LilvTestEnv* env) -{ - LilvWorld* const world = env->world; - - if (start_bundle(env, - ":plug a lv2:Plugin ; lv2:symbol \"plugsym\" ; lv2:binary <foo" SHLIB_EXT "> ; rdfs:seeAlso <plugin.ttl> .\n", - ":plug a lv2:Plugin ; " - "doap:name \"Test plugin\" ;" - "lv2:symbol \"plugsym\" .")) { - return 1; - } - - LilvNode* plug_sym = lilv_world_get_symbol(world, env->plugin1_uri); - LilvNode* path = lilv_new_uri(world, "http://example.org/foo"); - LilvNode* path_sym = lilv_world_get_symbol(world, path); - LilvNode* query = lilv_new_uri(world, "http://example.org/foo?bar=baz"); - LilvNode* query_sym = lilv_world_get_symbol(world, query); - LilvNode* frag = lilv_new_uri(world, "http://example.org/foo#bar"); - LilvNode* frag_sym = lilv_world_get_symbol(world, frag); - LilvNode* queryfrag = lilv_new_uri(world, "http://example.org/foo?bar=baz#quux"); - LilvNode* queryfrag_sym = lilv_world_get_symbol(world, queryfrag); - LilvNode* nonuri = lilv_new_int(world, 42); - - assert(lilv_world_get_symbol(world, nonuri) == NULL); - assert(!strcmp(lilv_node_as_string(plug_sym), "plugsym")); - assert(!strcmp(lilv_node_as_string(path_sym), "foo")); - assert(!strcmp(lilv_node_as_string(query_sym), "bar_baz")); - assert(!strcmp(lilv_node_as_string(frag_sym), "bar")); - assert(!strcmp(lilv_node_as_string(queryfrag_sym), "quux")); - - lilv_node_free(nonuri); - lilv_node_free(queryfrag_sym); - lilv_node_free(queryfrag); - lilv_node_free(frag_sym); - lilv_node_free(frag); - lilv_node_free(query_sym); - lilv_node_free(query); - lilv_node_free(path_sym); - lilv_node_free(path); - lilv_node_free(plug_sym); - - delete_bundle(env); - return 0; -} - -/*****************************************************************************/ - -/* add tests here */ -static struct TestCase tests[] = { - TEST_CASE(util), - TEST_CASE(value), - TEST_CASE(verify), - TEST_CASE(no_verify), - TEST_CASE(discovery), - TEST_CASE(classes), - TEST_CASE(plugin), - TEST_CASE(project), - TEST_CASE(no_author), - TEST_CASE(project_no_author), - TEST_CASE(preset), - TEST_CASE(prototype), - TEST_CASE(port), - TEST_CASE(ui), - TEST_CASE(bad_port_symbol), - TEST_CASE(bad_port_index), - TEST_CASE(bad_port_index), - TEST_CASE(string), - TEST_CASE(world), - // FIXME: State is not currently working on Windows -#ifndef _WIN32 - TEST_CASE(state), -#endif - TEST_CASE(reload_bundle), - TEST_CASE(replace_version), - TEST_CASE(get_symbol), - { NULL, NULL } -}; - -static unsigned -run_tests(void) -{ - unsigned n_failures = 0; - - for (int i = 0; tests[i].title; ++i) { - printf("*** Test %s\n", tests[i].title); - LilvTestEnv* env = lilv_test_env_new(); - if (tests[i].func(env)) { - fprintf(stderr, "\nTest %s failed\n", tests[i].title); - ++n_failures; - } - lilv_test_env_free(env); - } - - return n_failures; -} - -int -main(int argc, char* argv[]) -{ - if (argc != 1) { - printf("Usage: %s\n", argv[0]); - return 1; - } - - set_env("LANG", "C"); - - const unsigned n_failures = run_tests(); - - if (n_failures == 0) { - fprintf(stderr, "\n*** All tests passed\n"); - } else { - fprintf(stderr, "\n*** %u tests failed\n", n_failures); - } - - return n_failures; -} |