FIX: media/funnyordie.lua: Stream URL pattern
[libquvi-scripts.git] / tests / lib / env.c
blob3493bb23240ab3eeef43235fdf6644f494167f15
1 /* libquvi-scripts
2 * Copyright (C) 2012 Toni Gundogdu <legatvs@gmail.com>
4 * This file is part of libquvi-scripts <http://quvi.sourceforge.net>.
6 * This program is free software: you can redistribute it and/or
7 * modify it under the terms of the GNU Affero General Public
8 * License as published by the Free Software Foundation, either
9 * version 3 of the License, or (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU Affero General Public License for more details.
16 * You should have received a copy of the GNU Affero General
17 * Public License along with this program. If not, see
18 * <http://www.gnu.org/licenses/>.
21 #include "config.h"
23 #include <string.h>
24 #include <glib.h>
25 #include <quvi.h>
26 #include <curl/curl.h>
28 #include "tests.h"
30 gboolean chk_env(const gchar *w, const gchar *m)
32 const gchar *s = g_getenv(w);
33 if (s == NULL || strlen(s) == 0)
35 if (m != NULL)
36 g_test_message("%s", m);
37 return (FALSE);
39 return (TRUE);
42 gboolean chk_geoblocked()
44 return (chk_env("TEST_GEOBLOCKED", "SKIP: Set TEST_GEOBLOCKED to enable"));
47 gboolean chk_nsfw()
49 return (chk_env("TEST_NSFW", "SKIP: Set TEST_NSFW to enable"));
52 gboolean chk_fixme()
54 return (chk_env("TEST_FIXME", "SKIP: Set TEST_FIXME to enable"));
57 void chk_verbose(quvi_t q)
59 g_assert(q != NULL);
60 if (chk_env("TEST_VERBOSE", NULL) == TRUE)
62 CURL *c = NULL;
63 g_setenv("LIBQUVI_VERBOSE_SCRIPTS", "1", TRUE);
64 quvi_get(q, QUVI_INFO_CURL_HANDLE, &c);
65 curl_easy_setopt(c, CURLOPT_VERBOSE, 1L);
69 static gboolean chk_level(const gchar *s)
71 const gchar *e = g_getenv("TEST_LEVEL");
73 if (e == NULL || strlen(e) == 0)
74 return (FALSE);
76 return ((g_strcmp0(e, s) == 0) ? TRUE:FALSE);
79 gboolean chk_complete()
81 return (chk_level("complete"));
84 gboolean chk_skip(const gchar *test)
86 const gchar *e = g_getenv("TEST_SKIP");
87 gboolean r = FALSE;
89 if (e == NULL || strlen(e) == 0)
90 return (FALSE);
92 gchar **s = g_strsplit(e, ",", 0);
93 gint i = -1;
95 while (s != NULL && s[++i] != NULL)
97 if (match(test, s[i]) == TRUE)
99 g_test_message("SKIP: Remove '%s' from TEST_SKIP to enable",
100 test);
101 r = TRUE;
102 break;
105 g_strfreev(s);
106 s = NULL;
108 return (r);
111 /* vim: set ts=2 sw=2 tw=72 expandtab: */