import CubicalTransport.FFITest
import CubicalTransport.PropertyTest

def main : IO UInt32 := do
  let smokeFails ← CubicalTransportFFITest.runSmokeTests
  IO.println ""
  let propFails ← CubicalTransportPropertyTest.runProperties
  let total := smokeFails + propFails
  IO.println ""
  if total > 0 then
    IO.println s!"FAIL: {total} test(s) failed"
    return 1
  else
    IO.println "PASS: all smoke + property tests"
    return 0