Fixes constant NaN to constant NaN comparisons.
This commit is contained in:
Jeroen van Rijn
2025-04-05 14:47:30 +02:00
parent f796b67a67
commit 843467bb8f
2 changed files with 37 additions and 0 deletions
@@ -0,0 +1,33 @@
package test_internal
import "core:testing"
@(test)
compare_constant_nans_f32 :: proc(t: ^testing.T) {
NaN :: f32(0h7fc0_0000)
NaN2 :: f32(0h7fc0_0001)
testing.expect_value(t, NaN == NaN, false)
testing.expect_value(t, NaN == NaN2, false)
testing.expect_value(t, NaN != NaN, false)
testing.expect_value(t, NaN != NaN2, false)
testing.expect_value(t, NaN < NaN, false)
testing.expect_value(t, NaN <= NaN, false)
testing.expect_value(t, NaN > NaN, false)
testing.expect_value(t, NaN >= NaN, false)
}
@(test)
compare_constant_nans_f64 :: proc(t: ^testing.T) {
NaN :: f64(0h7fff_0000_0000_0000)
NaN2 :: f64(0h7fff_0000_0000_0001)
testing.expect_value(t, NaN == NaN, false)
testing.expect_value(t, NaN == NaN2, false)
testing.expect_value(t, NaN != NaN, false)
testing.expect_value(t, NaN != NaN2, false)
testing.expect_value(t, NaN < NaN, false)
testing.expect_value(t, NaN <= NaN, false)
testing.expect_value(t, NaN > NaN, false)
testing.expect_value(t, NaN >= NaN, false)
}