matt/agila_open_tool
1
0 Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial project import

Browse Source
This commit is contained in:
Agila Forge Importer committed 2026-07-13 15:20:32 +00:00
commit 23f2d29e32
11957 files changed
+1754577
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tools/v/vlib/time/operator_test.v
+391
View File
@@ -0,0 +1,391 @@
module time
fn assert_greater_time(ms int, t1 Time) {
sleep(ms * millisecond)
t2 := now()
assert t2 > t1
}
// Tests the now in all platform and the gt operator function with at least ms resolution
fn test_now_always_results_in_greater_time() {
t1 := now()
$if macos {
assert_greater_time(1, t1)
return
}
$if windows {
// Lower resolution of time for windows
assert_greater_time(15, t1)
return
}
$if linux {
assert_greater_time(1, t1)
return
}
$if solaris {
assert_greater_time(1, t1)
return
}
// other platforms may have more accurate resolution,
// but we do not know that ... so wait at least 1s:
assert_greater_time(1001, t1)
}
fn test_time1_should_be_same_as_time2() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
assert t1 == t2
}
fn test_time1_should_not_be_same_as_time2() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 101
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 4
nanosecond: 0
})
assert t1 != t2
assert t3 != t4
}
fn test_time1_should_be_greater_than_time2() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 102
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 101
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 5
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 4
nanosecond: 0
})
assert t1 > t2
assert t3 > t4
}
fn test_time2_should_be_less_than_time1() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 102
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 101
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 2
nanosecond: 0
})
assert t2 < t1
assert t4 < t3
}
fn test_time1_should_be_greater_or_equal_to_time2_when_gt() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 102
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 101
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 5
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 4
nanosecond: 0
})
assert t1 >= t2
assert t3 >= t4
}
fn test_time1_should_be_greater_or_equal_to_time2_when_eq() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
assert t1 >= t2
assert t3 >= t4
}
fn test_time1_should_be_less_or_equal_to_time2_when_lt() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 101
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 4
nanosecond: 0
})
assert t1 <= t2
assert t3 <= t4
}
fn test_time1_should_be_less_or_equal_to_time2_when_eq() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
// Difference is one nanosecond
t2 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
t3 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
// Difference is one second
t4 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 0
})
assert t1 <= t2
assert t3 <= t4
}
fn test_time2_copied_from_time1_should_be_equal() {
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
t2 := new(t1)
assert t2 == t1
}
fn test_subtract() {
d_seconds := 3
d_nanoseconds := 13
duration := i64(d_seconds) * second + d_nanoseconds * nanosecond
t1 := new(Time{
year: 2000
month: 5
day: 10
hour: 22
minute: 11
second: 3
nanosecond: 100
})
t2 := unix_nanosecond(i64(t1.unix) + d_seconds, t1.nanosecond + d_nanoseconds)
d1 := t2 - t1
d2 := t1 - t2
assert d1 > 0
assert d1 == duration
assert d2 < 0
assert d2 == -duration
}