Author: tewk
Date: Tue Nov 11 04:26:09 2008
New Revision: 32531
Modified:
trunk/src/nci_test.c
trunk/t/pmc/nci.t
Log:
[Jitted NCI] added a vfff test, it passes which doesn't shed any light on the
OpenGL failures
Modified: trunk/src/nci_test.c
==============================================================================
--- trunk/src/nci_test.c (original)
+++ trunk/src/nci_test.c Tue Nov 11 04:26:09 2008
@@ -105,7 +105,8 @@
PARROT_API void nci_vv(void);
PARROT_API void nci_vVi(Opaque**, int);
PARROT_API void nci_vp(Opaque*);
-
+PARROT_API char * nci_ttt(char *, char *);
+PARROT_API void nci_vfff(float, float, float);
/* Declarations for callback tests */
@@ -1123,6 +1124,35 @@
}
+static void validate_float(float f, double checkval) {
+ int valid;
+ double error_ratio;
+ error_ratio = (((double)f) - checkval) / checkval;
+ valid = error_ratio <= 0.01 && error_ratio >= -0.01;
+ printf("%i\n", valid);
+}
+
+/*
+
+=item C<PARROT_API float
+nci_fff(float l1, float l2)>
+
+Returns the result of C<l1> / C<l2>.
+
+=cut
+
+*/
+
+PARROT_API void
+nci_vfff(float l1, float l2, float l3)
+{
+ validate_float(l1, 3456.54);
+ validate_float(l2, 10.1999);
+ validate_float(l3, 14245.567);
+}
+
+
+
#ifdef TEST
char l2 = 4;
Modified: trunk/t/pmc/nci.t
==============================================================================
--- trunk/t/pmc/nci.t (original)
+++ trunk/t/pmc/nci.t Tue Nov 11 04:26:09 2008
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 67;
+use Parrot::Test tests => 68;
use Parrot::Config qw(%PConfig);
=head1 NAME
@@ -2686,6 +2686,24 @@
Waldo, Waldo, Hello
OUTPUT
+pir_output_is( << 'CODE', << 'OUTPUT', "nci_vfff - t_tt parameter" );
+.sub test :main
+ .local string library_name
+ library_name = 'libnci_test'
+ .local pmc libnci_test
+ libnci_test = loadlib library_name
+
+ .local pmc nci_vfff
+ nci_vfff = dlfunc libnci_test, "nci_vfff", "vfff"
+
+ nci_vfff(3456.54, 10.1999, 14245.567)
+.end
+CODE
+1
+1
+1
+OUTPUT
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
