tests.0rt

/* -----------------------------------------------------------------------------
Copyright 2020-2021 Kevin P. Barry

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
----------------------------------------------------------------------------- */

// Author: Kevin P. Barry [ta0kira@gmail.com]

testcase "checkEquals success" {
  success
}

unittest test {
  \ Testing.checkEquals(13,13)
}


testcase "checkEquals fail" {
  crash
  require stderr "13"
  require stderr "15"
}

unittest test {
  \ Testing.checkEquals(13,15)
}


testcase "checkNotEquals success" {
  success
}

unittest test {
  \ Testing.checkNotEquals(12,13)
}


testcase "checkNotEquals fail" {
  crash
  require stderr "13.*13"
}

unittest test {
  \ Testing.checkNotEquals(13,13)
}


testcase "checkEmpty success" {
  success
}

unittest formatted {
  \ Testing.checkEmpty(empty)
}

unittest notFormatted {
  optional CharBuffer value <- empty
  \ Testing.checkEmpty(value)
}


testcase "checkEmpty fail formatted" {
  crash
  require stderr "13"
  require stderr "empty"
}

unittest test {
  \ Testing.checkEmpty(13)
}


testcase "checkEmpty fail unformatted" {
  crash
  require stderr "unformatted"
  require stderr "empty"
}

unittest test {
  CharBuffer value <- CharBuffer.new(10)
  \ Testing.checkEmpty(value)
}


testcase "checkPresent success" {
  success
}

unittest test {
  \ Testing.checkPresent(13)
}


testcase "checkPresent fail" {
  crash
  require stderr "empty"
}

unittest test {
  \ Testing.checkPresent(empty)
}


testcase "checkOptional success" {
  success
}

unittest test {
  \ Testing.checkOptional<Int>(empty,empty)
  \ Testing.checkOptional(13,13)
}


testcase "checkOptional fail empty" {
  crash
  require stderr "13"
  require stderr "empty"
}

unittest test {
  \ Testing.checkOptional(13,empty)
}


testcase "checkOptional fail present" {
  crash
  require stderr "13"
  require stderr "empty"
}

unittest test {
  \ Testing.checkOptional(empty,13)
}


testcase "checkBetween success" {
  success
}

unittest test {
  \ Testing.checkBetween(13,13,15)
}


testcase "checkBetween fail" {
  crash
  require stderr "13"
  require stderr "14"
  require stderr "15"
}

unittest test {
  \ Testing.checkBetween(13,14,15)
}


testcase "checkBetween bad range" {
  crash
  exclude stderr "14"
  require stderr "13"
  require stderr "15"
}

unittest test {
  \ Testing.checkBetween(14,15,13)
}


testcase "checkGreaterThan success" {
  success
}

unittest test {
  \ Testing.checkGreaterThan(13,11)
}


testcase "checkGreaterThan fail" {
  crash
  require stderr "13"
  require stderr "14"
}

unittest test {
  \ Testing.checkGreaterThan(13,14)
}


testcase "checkLessThan success" {
  success
}

unittest test {
  \ Testing.checkLessThan(13,14)
}


testcase "checkLessThan fail" {
  crash
  require stderr "13"
  require stderr "11"
}

unittest test {
  \ Testing.checkLessThan(13,11)
}


testcase "checkTrue success" {
  success
}

unittest test {
  \ Testing.checkTrue(1)
}


testcase "checkTrue fail" {
  crash
  require stderr "true"
}

unittest test {
  \ Testing.checkTrue(0)
}


testcase "checkFalse success" {
  success
}

unittest test {
  \ Testing.checkFalse(0)
}


testcase "checkFalse fail" {
  crash
  require stderr "false"
}

unittest test {
  \ Testing.checkFalse(1)
}