浏览代码

* use $E switch to determine tests

carl 23 年之前
父节点
当前提交
061b179457
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      tests/test/cg/tstr.pp

+ 3 - 3
tests/test/cg/tstr.pp

@@ -64,7 +64,7 @@ begin
 
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   f := -1.12345;
-{$ifndef FPU_EMULATION}  
+{$IFOPT E-}  
   str(f,s);
   check('-1.123450000000000E+000');
 {$endif}  
@@ -242,7 +242,7 @@ begin
 
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   f := -1.12345;
-{$ifndef FPU_EMULATION}  
+{$IFOPT E-}  
   str(f,s);
   check('-1.123450000000000E+000');
 {$endif}  
@@ -421,7 +421,7 @@ begin
 
   { for more in-depth tests of str_real, see ../tstreal[1,2].pp }
   f := -1.12345;
-{$ifndef FPU_EMULATION}  
+{$IFOPT E-}  
   str(f,s);
   check('-1.123450000000000E+000');
 {$endif}