diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 18:30:19 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 18:30:19 +0000 |
commit | 5c1676dfe6d2f3c837a5e074117b45613fd29a72 (patch) | |
tree | cbffb45144febf451e54061db2b21395faf94bfe /libgimpwidgets/test-eevl.c | |
parent | Initial commit. (diff) | |
download | gimp-5c1676dfe6d2f3c837a5e074117b45613fd29a72.tar.xz gimp-5c1676dfe6d2f3c837a5e074117b45613fd29a72.zip |
Adding upstream version 2.10.34.upstream/2.10.34upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r-- | libgimpwidgets/test-eevl.c | 196 |
1 files changed, 196 insertions, 0 deletions
diff --git a/libgimpwidgets/test-eevl.c b/libgimpwidgets/test-eevl.c new file mode 100644 index 0000000..7c5b9c0 --- /dev/null +++ b/libgimpwidgets/test-eevl.c @@ -0,0 +1,196 @@ +/* LIBGIMP - The GIMP Library + * Copyright (C) 1995-1997 Peter Mattis and Spencer Kimball + * + * test-eevl.c + * Copyright (C) 2008 Fredrik Alstromer <roe@excu.se> + * Copyright (C) 2008 Martin Nordholts <martinn@svn.gnome.org> + * + * This library is free software: you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 3 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Library General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library. If not, see + * <https://www.gnu.org/licenses/>. + */ + +/* A small regression test case for the evaluator */ + +#include "config.h" + +#include <string.h> + +#include <glib-object.h> + +#include "libgimpmath/gimpmath.h" + +#include "gimpeevl.h" + + +typedef struct +{ + const gchar *string; + GimpEevlQuantity result; + gboolean should_succeed; +} TestCase; + +static gboolean +test_units (const gchar *ident, + GimpEevlQuantity *factor, + gdouble *offset, + gpointer data) +{ + gboolean resolved = FALSE; + gboolean default_unit = (ident == NULL); + + *offset = 0.0; + + if (default_unit || + (ident && strcmp ("in", ident) == 0)) + { + factor->dimension = 1; + factor->value = 1.; + + resolved = TRUE; + } + else if (ident && strcmp ("mm", ident) == 0) + { + factor->dimension = 1; + factor->value = 25.4; + + resolved = TRUE; + } + + return resolved; +} + + +int +main(void) +{ + gint i; + gint failed = 0; + gint succeeded = 0; + + TestCase cases[] = + { + /* "Default" test case */ + { "2in + 3in", { 2 + 3, 1}, TRUE }, + + /* Whitespace variations */ + { "2in+3in", { 2 + 3, 1}, TRUE }, + { " 2in + 3in", { 2 + 3, 1}, TRUE }, + { "2in + 3in ", { 2 + 3, 1}, TRUE }, + { "2 in + 3 in", { 2 + 3, 1}, TRUE }, + { " 2 in + 3 in ", { 2 + 3, 1}, TRUE }, + + /* Make sure the default unit is applied as it should */ + { "2 + 3in", { 2 + 3, 1 }, TRUE }, + { "3", { 3, 1 }, TRUE }, + + /* Somewhat complicated input */ + { "(2 + 3)in", { 2 + 3, 1}, TRUE }, + // { "2 / 3 in", { 2 / 3., 1}, TRUE }, + { "(2 + 2/3)in", { 2 + 2 / 3., 1}, TRUE }, + { "1/2 + 1/2", { 1, 1}, TRUE }, + { "2 ^ 3 ^ 4", { pow (2, pow (3, 4)), 1}, TRUE }, + + /* Mixing of units */ + { "2mm + 3in", { 2 / 25.4 + 3, 1}, TRUE }, + + /* 'odd' behavior */ + { "2 ++ 1", { 3, 1}, TRUE }, + { "2 +- 1", { 1, 1}, TRUE }, + { "2 -- 1", { 3, 1}, TRUE }, + + /* End of test cases */ + { NULL, { 0, 0 }, TRUE } + }; + + g_print ("Testing Eevl Eva, the Evaluator\n\n"); + + for (i = 0; cases[i].string; i++) + { + const gchar *test = cases[i].string; + GimpEevlOptions options = GIMP_EEVL_OPTIONS_INIT; + GimpEevlQuantity should = cases[i].result; + GimpEevlQuantity result = { 0, -1 }; + gboolean should_succeed = cases[i].should_succeed; + GError *error = NULL; + const gchar *error_pos = 0; + + options.unit_resolver_proc = test_units; + + gimp_eevl_evaluate (test, + &options, + &result, + &error_pos, + &error); + + g_print ("%s = %lg (%d): ", test, result.value, result.dimension); + if (error || error_pos) + { + if (should_succeed) + { + failed++; + g_print ("evaluation failed "); + if (error) + { + g_print ("with: %s, ", error->message); + } + else + { + g_print ("without reason, "); + } + if (error_pos) + { + if (*error_pos) g_print ("'%s'.", error_pos); + else g_print ("at end of input."); + } + else + { + g_print ("but didn't say where."); + } + g_print ("\n"); + } + else + { + g_print ("OK (failure test case)\n"); + succeeded++; + } + } + else if (!should_succeed) + { + g_print ("evaluation should've failed, but didn't.\n"); + failed++; + } + else if (should.value != result.value || should.dimension != result.dimension) + { + g_print ("results don't match, should be: %lg (%d)\n", + should.value, should.dimension); + failed++; + } + else + { + g_print ("OK\n"); + succeeded++; + } + } + + g_print ("\n"); + if (!failed) + g_print ("All OK. "); + else + g_print ("Test failed! "); + + g_print ("(%d/%d) %lg%%\n\n", succeeded, succeeded+failed, + 100*succeeded/(gdouble)(succeeded+failed)); + + return failed; +} |