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

# · R · 17 lines · 16 code · 1 blank · 0 comment · 4 complexity · 6ef588ea07bd9118136d3fbabe80d4fd MD5 · raw file 

    

  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.