mirror/Odin
1
0 Fork 0
mirror of https://github.com/odin-lang/Odin.git synced 2026-11-05 10:13:11 -05:00
Code Issues Packages Projects Releases Wiki Activity
Files
bill/soa-pointer-using
Odin/tests/internal/test_abs.odin
T

193 lines
7.7 KiB
Odin
Raw Permalink Blame History

package test_internal
import "base:intrinsics"
import "core:testing"
@(private="file")
not_const :: proc(v: $T) -> T { return v }
@(test)
abs_f16_const :: proc(t: ^testing.T) {
// Constant f16
testing.expect_value(t, abs(f16(0.)), 0.)
testing.expect_value(t, abs(f16(-0.)), 0.)
testing.expect_value(t, abs(f16(-1.)), 1.)
testing.expect_value(t, abs(min(f16)), max(f16))
testing.expect_value(t, abs(max(f16)), max(f16))
testing.expect_value(t, abs(f16(-.12)), .12)
// Constant f16le
testing.expect_value(t, abs(f16le(0.)), 0.)
testing.expect_value(t, abs(f16le(-0.)), 0.)
testing.expect_value(t, abs(f16le(-1.)), 1.)
testing.expect_value(t, abs(min(f16le)), max(f16le))
testing.expect_value(t, abs(max(f16le)), max(f16le))
testing.expect_value(t, abs(f16le(-.12)), .12)
// Constant f16be
testing.expect_value(t, abs(f16be(0.)), 0.)
testing.expect_value(t, abs(f16be(-0.)), 0.)
testing.expect_value(t, abs(f16be(-1.)), 1.)
testing.expect_value(t, abs(min(f16be)), max(f16be))
testing.expect_value(t, abs(max(f16be)), max(f16be))
testing.expect_value(t, abs(f16be(-.12)), .12)
}
@(test)
abs_f16_variable :: proc(t: ^testing.T) {
// Variable f16
testing.expect_value(t, abs(not_const(f16(0.))), 0.)
testing.expect_value(t, abs(not_const(f16(-0.))), 0.)
testing.expect_value(t, abs(not_const(f16(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f16))), max(f16))
testing.expect_value(t, abs(not_const(max(f16))), max(f16))
testing.expect_value(t, abs(not_const(f16(-.12))), .12)
// Variable f16le
testing.expect_value(t, abs(not_const(f16le(0.))), 0.)
testing.expect_value(t, abs(not_const(f16le(-0.))), 0.)
testing.expect_value(t, abs(not_const(f16le(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f16le))), max(f16le))
testing.expect_value(t, abs(not_const(max(f16le))), max(f16le))
testing.expect_value(t, abs(not_const(f16le(-.12))), .12)
// Variable f16be
testing.expect_value(t, abs(not_const(f16be(0.))), 0.)
testing.expect_value(t, abs(not_const(f16be(-0.))), 0.)
testing.expect_value(t, abs(not_const(f16be(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f16be))), max(f16be))
testing.expect_value(t, abs(not_const(max(f16be))), max(f16be))
testing.expect_value(t, abs(not_const(f16be(-.12))), .12)
}
@(test)
abs_f32_const :: proc(t: ^testing.T) {
// Constant f32
testing.expect_value(t, abs(f32(0.)), 0.)
testing.expect_value(t, abs(f32(-0.)), 0.)
testing.expect_value(t, abs(f32(-1.)), 1.)
testing.expect_value(t, abs(min(f32)), max(f32))
testing.expect_value(t, abs(max(f32)), max(f32))
testing.expect_value(t, abs(f32(-.12345)), .12345)
// Constant f32le
testing.expect_value(t, abs(f32le(0.)), 0.)
testing.expect_value(t, abs(f32le(-0.)), 0.)
testing.expect_value(t, abs(f32le(-1.)), 1.)
testing.expect_value(t, abs(min(f32le)), max(f32le))
testing.expect_value(t, abs(max(f32le)), max(f32le))
testing.expect_value(t, abs(f32le(-.12345)), .12345)
// Constant f32be
testing.expect_value(t, abs(f32be(0.)), 0.)
testing.expect_value(t, abs(f32be(-0.)), 0.)
testing.expect_value(t, abs(f32be(-1.)), 1.)
testing.expect_value(t, abs(min(f32be)), max(f32be))
testing.expect_value(t, abs(max(f32be)), max(f32be))
testing.expect_value(t, abs(f32be(-.12345)), .12345)
}
@(test)
abs_f32_variable :: proc(t: ^testing.T) {
// Variable f32
testing.expect_value(t, abs(not_const(f32(0.))), 0.)
testing.expect_value(t, abs(not_const(f32(-0.))), 0.)
testing.expect_value(t, abs(not_const(f32(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f32))), max(f32))
testing.expect_value(t, abs(not_const(max(f32))), max(f32))
testing.expect_value(t, abs(not_const(f32(-.12345))), .12345)
// Variable f32le
testing.expect_value(t, abs(not_const(f32le(0.))), 0.)
testing.expect_value(t, abs(not_const(f32le(-0.))), 0.)
testing.expect_value(t, abs(not_const(f32le(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f32le))), max(f32le))
testing.expect_value(t, abs(not_const(max(f32le))), max(f32le))
testing.expect_value(t, abs(not_const(f32le(-.12345))), .12345)
// Variable f32be
testing.expect_value(t, abs(not_const(f32be(0.))), 0.)
testing.expect_value(t, abs(not_const(f32be(-0.))), 0.)
testing.expect_value(t, abs(not_const(f32be(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f32be))), max(f32be))
testing.expect_value(t, abs(not_const(max(f32be))), max(f32be))
testing.expect_value(t, abs(not_const(f32be(-.12345))), .12345)
}
@(test)
abs_f64_const :: proc(t: ^testing.T) {
// Constant f64
testing.expect_value(t, abs(f64(0.)), 0.)
testing.expect_value(t, abs(f64(-0.)), 0.)
testing.expect_value(t, abs(f64(-1.)), 1.)
testing.expect_value(t, abs(min(f64)), max(f64))
testing.expect_value(t, abs(max(f64)), max(f64))
testing.expect_value(t, abs(f64(-.12345)), .12345)
// Constant f64le
testing.expect_value(t, abs(f64le(0.)), 0.)
testing.expect_value(t, abs(f64le(-0.)), 0.)
testing.expect_value(t, abs(f64le(-1.)), 1.)
testing.expect_value(t, abs(min(f64le)), max(f64le))
testing.expect_value(t, abs(max(f64le)), max(f64le))
testing.expect_value(t, abs(f64le(-.12345)), .12345)
// Constant f64be
testing.expect_value(t, abs(f64be(0.)), 0.)
testing.expect_value(t, abs(f64be(-0.)), 0.)
testing.expect_value(t, abs(f64be(-1.)), 1.)
testing.expect_value(t, abs(min(f64be)), max(f64be))
testing.expect_value(t, abs(max(f64be)), max(f64be))
testing.expect_value(t, abs(f64be(-.12345)), .12345)
}
@(test)
abs_f64_variable :: proc(t: ^testing.T) {
// Variable f64
testing.expect_value(t, abs(not_const(f64(0.))), 0.)
testing.expect_value(t, abs(not_const(f64(-0.))), 0.)
testing.expect_value(t, abs(not_const(f64(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f64))), max(f64))
testing.expect_value(t, abs(not_const(max(f64))), max(f64))
testing.expect_value(t, abs(not_const(f64(-.12345))), .12345)
// Variable f64le
testing.expect_value(t, abs(not_const(f64le(0.))), 0.)
testing.expect_value(t, abs(not_const(f64le(-0.))), 0.)
testing.expect_value(t, abs(not_const(f64le(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f64le))), max(f64le))
testing.expect_value(t, abs(not_const(max(f64le))), max(f64le))
testing.expect_value(t, abs(not_const(f64le(-.12345))), .12345)
// Variable f64be
testing.expect_value(t, abs(not_const(f64be(0.))), 0.)
testing.expect_value(t, abs(not_const(f64be(-0.))), 0.)
testing.expect_value(t, abs(not_const(f64be(-1.))), 1.)
testing.expect_value(t, abs(not_const(min(f64be))), max(f64be))
testing.expect_value(t, abs(not_const(max(f64be))), max(f64be))
testing.expect_value(t, abs(not_const(f64be(-.12345))), .12345)
}
@(test)
simd_abs_variable :: proc(t: ^testing.T) {
// signed ints -> abs(min(T)) wraps to min(T)
i32x4 := intrinsics.simd_abs(not_const(#simd[4]i32{min(i32), -1, 0, max(i32)}))
testing.expect_value(t, transmute([4]i32)i32x4, [4]i32{min(i32), 1, 0, max(i32)})
i8x16 := intrinsics.simd_abs(not_const(#simd[16]i8{min(i8), -1, 0, max(i8), -2, 2, -3, 3, -4, 4, -5, 5, -6, 6, -7, 7}))
testing.expect_value(t, transmute([16]i8)i8x16, [16]i8{min(i8), 1, 0, max(i8), 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7})
// unsigned ints
u32x4 := intrinsics.simd_abs(not_const(#simd[4]u32{0, 1, 100, max(u32)}))
testing.expect_value(t, transmute([4]u32)u32x4, [4]u32{0, 1, 100, max(u32)})
u8x16 := intrinsics.simd_abs(not_const(#simd[16]u8{0, 1, 100, 200, 255, 128, 127, 2, 3, 4, 5, 6, 7, 8, 9, 10}))
testing.expect_value(t, transmute([16]u8)u8x16, [16]u8{0, 1, 100, 200, 255, 128, 127, 2, 3, 4, 5, 6, 7, 8, 9, 10})
// floats
f32x4 := intrinsics.simd_abs(not_const(#simd[4]f32{0., -0., -1., -.12345}))
f32_expected := [4]f32{0., 0., 1., .12345}
testing.expect_value(t, transmute([4]u32)f32x4, transmute([4]u32)f32_expected)
f64x2 := intrinsics.simd_abs(not_const(#simd[2]f64{-0., min(f64)}))
f64_expected := [2]f64{0., max(f64)}
testing.expect_value(t, transmute([2]u64)f64x2, transmute([2]u64)f64_expected)
}
Reference in new issue View Git Blame Copy Permalink