PageRenderTime 38ms CodeModel.GetById 13ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/r/unittest.R

#
R | 17 lines | 16 code | 1 blank | 0 comment | 4 complexity | 6ef588ea07bd9118136d3fbabe80d4fd MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. unittest <- function (x,y) {
    2. 

  2.   if (x==y) {
    3. 

  3.     print("PASS") 
    4. 

  4.   } else {
    5. 

  5.     print("FAIL") 
    6. 

  6.     stop("Test failed")
    7. 

  7.   }
    8. 

  8. }
    9. 

  9. 

  10. unittesttol <- function(x,y,z) {
    11. 

  11.   if (abs(x-y) < z) {
    12. 

  12.     print("PASS")
    13. 

  13.   } else {
    14. 

  14.     print("FAIL")
    15. 

  15.     stop("Test failed")
    16. 

  16.   }
    17. 

  17. }
    18. 

  18.