X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fstdio%2Ffscan_sources.incl;fp=functions%2Fstdio%2Ffscan_sources.incl;h=9ee2b20660de331c9c4c12dc1fcba42162128e0c;hb=267fe05174a4ac4059e83e4275e4776735797658;hp=0000000000000000000000000000000000000000;hpb=d2fb0b6ec7b5cad98eeca38797f348d9b64b884e;p=pdclib

diff --git a/functions/stdio/fscan_sources.incl b/functions/stdio/fscan_sources.incl
new file mode 100644
index 0000000..9ee2b20
--- /dev/null
+++ b/functions/stdio/fscan_sources.incl
@@ -0,0 +1,51 @@
+    FILE * general = fopen( "scanf_testdata_general", "wb+" );
+    TESTCASE( general != NULL );
+    TESTCASE( fwrite( "12345678901\0003-5+7\0009\3772 4 6 8 0\3771 \011 5%%  0", 1, 40, general ) == 40 );
+    rewind( general );
+
+    FILE * decimal = fopen( "scanf_testdata_decimal", "wb+" );
+    TESTCASE( decimal != NULL );
+    TESTCASE( fwrite( "-0 +0 -128 +127 +255 -32768 +32767 +65535\n"
+                      "-2147483648 +2147483647 +4294967295\n"
+                      "-9223372036854775808 +9223372036854775807\n"
+                      "+18446744073709551615\n", 1, 142, decimal ) == 142 );
+    rewind( decimal );
+
+    FILE * hexadecimal = fopen( "scanf_testdata_hexadecimal", "wb+" );
+    TESTCASE( hexadecimal != NULL );
+    TESTCASE( fwrite( "-0x0 -0x000 -0x7f 0x80 0xff -0x7fff 0x8000\n"
+                      "0xffff -0x7fffffff 0x80000000 0xffffffff\n"
+                      "-0x7fffffffffffffff 0x8000000000000000\n"
+                      "0xffffffffffffffff\n", 1, 142, hexadecimal ) == 142 );
+    rewind( hexadecimal );
+
+    FILE * octal = fopen( "scanf_testdata_octal", "wb+" );
+    TESTCASE( octal != NULL );
+    TESTCASE( fwrite( "+0000 -0000 +0177 +0377 -0377 +077777 +0177777\n"
+                      "-0177777 +017777777777 +037777777777\n"
+                      "-037777777777 +0777777777777777777777\n"
+                      "+01777777777777777777777\n"
+                      "-01777777777777777777777\n", 1, 172, octal ) == 172 );
+    rewind( octal );
+
+    FILE * alpha = fopen( "scanf_testdata_alpha", "wb+" );
+    TESTCASE( alpha != NULL );
+    TESTCASE( fwrite( "abcdefgh-ijklmnop[qrs%uvw]xyz", 1, 29, alpha ) == 29 );
+    rewind( alpha );
+
+    FILE * special = fopen( "scanf_testdata_special", "wb+" );
+    TESTCASE( special != NULL );
+    TESTCASE( fwrite( "-0xz\n", 1, 5, special ) == 5 );
+    rewind( special );
+
+
+/* fscan */
+#define TESTSCAN( result, count, source, offset, format ) \
+    do \
+    { \
+        int n = -1; \
+        TESTCASE( fseek( source, offset, SEEK_SET ) == 0 ); \
+        TESTCASE( SCANFUNC( source, format "%n", __VA_ARGS__, &n ) == result ); \
+        TESTCASE( n == count ); \
+    } while ( 0 )
+