projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* format.c (fmt_dollar_template): Use user's decimal point
[pspp-builds.git]
/
src
/
language
/
tests
/
casefile-test.c
diff --git
a/src/language/tests/casefile-test.c
b/src/language/tests/casefile-test.c
index 6f5a5d2e7e5982b94829f70c6d3f13991fc8dc22..33b15cb6eb00ef0eb93e7ae312859b79c458e576 100644
(file)
--- a/
src/language/tests/casefile-test.c
+++ b/
src/language/tests/casefile-test.c
@@
-45,7
+45,7
@@
static void test_casereader_clone (struct casereader *reader1, size_t case_cnt);
static void fail_test (const char *message, ...);
int
static void fail_test (const char *message, ...);
int
-cmd_debug_casefile (struct dataset *ds UNUSED)
+cmd_debug_casefile (struct
lexer *lexer, struct
dataset *ds UNUSED)
{
static const size_t sizes[] =
{
{
static const size_t sizes[] =
{
@@
-57,15
+57,15
@@
cmd_debug_casefile (struct dataset *ds UNUSED)
int pattern;
size_max = sizeof sizes / sizeof *sizes;
int pattern;
size_max = sizeof sizes / sizeof *sizes;
- if (lex_match_id ("SMALL"))
+ if (lex_match_id (
lexer,
"SMALL"))
{
size_max -= 4;
case_max = 511;
}
else
case_max = 4095;
{
size_max -= 4;
case_max = 511;
}
else
case_max = 4095;
- if (
token
!= '.')
- return lex_end_of_command ();
+ if (
lex_token (lexer)
!= '.')
+ return lex_end_of_command (
lexer
);
for (pattern = 0; pattern < 7; pattern++)
{
for (pattern = 0; pattern < 7; pattern++)
{
@@
-101,8
+101,8
@@
test_casefile (int pattern, size_t value_cnt, size_t case_cnt)
write_random_case (cf, i);
if (pattern == 5)
casefile_sleep (cf);
write_random_case (cf, i);
if (pattern == 5)
casefile_sleep (cf);
- r1 = casefile_get_reader (cf);
- r2 = casefile_get_reader (cf);
+ r1 = casefile_get_reader (cf
, NULL
);
+ r2 = casefile_get_reader (cf
, NULL
);
switch (pattern)
{
case 0:
switch (pattern)
{
case 0:
@@
-160,8
+160,8
@@
test_casefile (int pattern, size_t value_cnt, size_t case_cnt)
fail_test ("Premature end of casefile.");
for (j = 0; j < value_cnt; j++)
{
fail_test ("Premature end of casefile.");
for (j = 0; j < value_cnt; j++)
{
- double a = case_num (&read_case, j);
- double b = case_num (&expected_case, j);
+ double a = case_num
_idx
(&read_case, j);
+ double b = case_num
_idx
(&expected_case, j);
if (a != b)
fail_test ("Case %lu fails comparison.", (unsigned long) i);
}
if (a != b)
fail_test ("Case %lu fails comparison.", (unsigned long) i);
}
@@
-180,7
+180,7
@@
get_random_case (struct ccase *c, size_t value_cnt, size_t case_idx)
int i;
case_create (c, value_cnt);
for (i = 0; i < value_cnt; i++)
int i;
case_create (c, value_cnt);
for (i = 0; i < value_cnt; i++)
- case_data_rw (c, i)->f = case_idx % 257 + i;
+ case_data_rw
_idx
(c, i)->f = case_idx % 257 + i;
}
static void
}
static void
@@
-205,8
+205,8
@@
read_and_verify_random_case (struct casefile *cf,
fail_test ("Premature end of casefile.");
for (i = 0; i < value_cnt; i++)
{
fail_test ("Premature end of casefile.");
for (i = 0; i < value_cnt; i++)
{
- double a = case_num (&read_case, i);
- double b = case_num (&expected_case, i);
+ double a = case_num
_idx
(&read_case, i);
+ double b = case_num
_idx
(&expected_case, i);
if (a != b)
fail_test ("Case %lu fails comparison.", (unsigned long) case_idx);
}
if (a != b)
fail_test ("Case %lu fails comparison.", (unsigned long) case_idx);
}
@@
-246,7
+246,7
@@
test_casereader_clone (struct casereader *reader1, size_t case_cnt)
cases ++;
}
cases ++;
}
- newreader = casefile_get_reader (newfile);
+ newreader = casefile_get_reader (newfile
, NULL
);
/* Make sure that the new file's are identical to those returned from
the cloned reader */
/* Make sure that the new file's are identical to those returned from
the cloned reader */