The R Project SVN R

Rev

Rev 84772 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84772 Rev 85424
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2022-03-19 r81942) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2023-10-20 r85375) -- "Unsuffered Consequences"
3 
Copyright (C) 2022 The R Foundation for Statistical Computing
 3 
Copyright (C) 2023 The R Foundation for Statistical Computing
4 
Platform: x86_64-pc-linux-gnu (64-bit)
 4 
Platform: x86_64-pc-linux-gnu
5 
 
 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
 7 
You are welcome to redistribute it under certain conditions.
8 
Type 'license()' or 'licence()' for distribution details.
 8 
Type 'license()' or 'licence()' for distribution details.
9 
 
 9 
 
Line 16... Line 16...
16 
Type 'q()' to quit R.
 16 
Type 'q()' to quit R.
17 
 
 17 
 
18 
> #### STRICT test suite in the spirit of no-segfaults,
 18 
> #### STRICT test suite in the spirit of no-segfaults,
19 
> #### but with explicit statements.
 19 
> #### but with explicit statements.
20 
>
20 
>
- 
 
 21 
> tools::assertError(options(catch.script.errors = NA)) # TRUE or FALSE
21 
> options(error=expression(NULL))
 22 
> options(catch.script.errors = TRUE)
22 
> stop("test of `options(error=expression(NULL))'")
 23 
> stop("test of 'options(catch.script.errors = TRUE)'")
23 
Error: test of `options(error=expression(NULL))'
 24 
Error: test of 'options(catch.script.errors = TRUE)'
24 
>
25 
>
25 
> if(FALSE) {
 26 
> if(FALSE) {
26 
+ ## these ought to work on machines with enough memory
 27 
+ ## these ought to work on machines with enough memory
27 
+ ## These segfaulted in 1.3.x ,  give "could not allocate" errors now
 28 
+ ## These segfaulted in 1.3.x ,  give "could not allocate" errors now
28 
+   integer(2^30+1)
 29 
+   integer(2^30+1)