R Under development (unstable) (2025-02-18 r87748 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(flint)
> 
> x <- .arf(x = 0)
> y <- .arf(x = 1)
> z <- .arf(x = NaN)
> 
> `!` <- is.character
> stopifnot( all.equal(x, x),
+           !all.equal(x, y),
+           !all.equal(x, z),
+           !all.equal(y, x),
+            all.equal(y, y),
+           !all.equal(y, z),
+           !all.equal(z, x),
+           !all.equal(z, y),
+            all.equal(z, z),
+            all.equal(x, .arf(x = 0)),
+           !all.equal(x, .arf(x = c(0, 0))),
+            all.equal(`attr<-`(x, "a", 0), `attr<-`(x, "a", 0)),
+           !all.equal(`attr<-`(x, "a", 0), `attr<-`(x, "a", 1)),
+            all.equal(`attr<-`(x, "a", 0), `attr<-`(x, "a", 1),
+                      check.attributes = FALSE),
+           !all.equal(`attr<-`(x, "a", 0), `attr<-`(x, "b", 0)),
+            all.equal(`attr<-`(x, "a", 0), `attr<-`(x, "b", 0),
+                      check.attributes = FALSE),
+            all.equal(`names<-`(x, "a"), `names<-`(x, "a")),
+           !all.equal(`names<-`(x, "a"), `names<-`(x, "b")),
+            all.equal(`names<-`(x, "a"), `names<-`(x, "b"),
+                      check.attributes = FALSE),
+            all.equal(`names<-`(x, "a"), `names<-`(x, "b"),
+                      check.names      = FALSE),
+           !all.equal(x, "0"),
+           !all.equal(x, "0",
+                      check.attributes = FALSE),
+           !all.equal(x, "0",
+                      check.class      = FALSE),
+           !all.equal(x, 0),
+           !all.equal(x, 0,
+                      check.attributes = FALSE),
+            all.equal(x, 0,
+                      check.class      = FALSE),
+           !all.equal(x, .acf(1L)),
+           !all.equal(x, .acf(1L),
+                      check.attributes = FALSE),
+            all.equal(x, .acf(1L),
+                      check.class      = FALSE),
+           !all.equal(x, y, scale = 1),
+            all.equal(x, y, scale = 1, tolerance =   1),
+           !all.equal(x, y, scale = 1, tolerance = 0.9),
+            all.equal(x, y, scale = 2, tolerance = 0.5),
+           !all.equal(x, y, scale = 2, tolerance = 0.4))
> 
> proc.time()
   user  system elapsed 
   0.81    0.14    0.89