1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
Description: Some tests were written with no consideration of LP64.
Author: NIIBE Yutaka <gniibe@fsij.org>
Last-Update: 2013-07-09
Index: sigscheme-0.8.5/test-c/test-gc-protect.c
===================================================================
--- sigscheme-0.8.5.orig/test-c/test-gc-protect.c 2013-07-09 05:51:46.036028336 +0000
+++ sigscheme-0.8.5/test-c/test-gc-protect.c 2013-07-09 05:57:15.960057619 +0000
@@ -76,7 +76,7 @@
{
TST_TN_FALSE(scm_gc_protected_contextp());
- TST_TN_FALSE(protected_func(NULL));
+ TST_TN_TRUE (protected_func(NULL) == NULL);
TST_TN_TRUE (scm_call_with_gc_ready_stack(protected_func, NULL));
TST_TN_FALSE(protected_func(NULL));
}
@@ -92,7 +92,7 @@
TST_TN_FALSE(scm_gc_protected_contextp());
#if TRY_TESTS_THAT_PASS_IN_MOST_CASES
- TST_TN_FALSE(var_in_protected_func(NULL));
+ TST_TN_TRUE (var_in_protected_func(NULL) == NULL);
#endif
TST_TN_TRUE (scm_call_with_gc_ready_stack(var_in_protected_func, NULL));
#if TRY_TESTS_THAT_PASS_IN_MOST_CASES
@@ -114,7 +114,7 @@
TST_TN_FALSE(scm_gc_protected_contextp());
#if TRY_TESTS_THAT_PASS_IN_MOST_CASES
- TST_TN_FALSE(vars_in_protected_func(NULL));
+ TST_TN_TRUE (vars_in_protected_func(NULL) == NULL);
#endif
TST_TN_TRUE (scm_call_with_gc_ready_stack(vars_in_protected_func, NULL));
#if TRY_TESTS_THAT_PASS_IN_MOST_CASES
|
