[Returnanalytics-commits] r3729 - pkg/Dowd/tests/testthat

[noreply at r-forge.r-project.org]

Author: dacharya
Date: 2015-06-23 23:28:41 +0200 (Tue, 23 Jun 2015)
New Revision: 3729

Added:
   pkg/Dowd/tests/testthat/testADTestStat.R
Log:
Test for ADTestStat added.

Added: pkg/Dowd/tests/testthat/testADTestStat.R
===================================================================
--- pkg/Dowd/tests/testthat/testADTestStat.R	                        (rev 0)
+++ pkg/Dowd/tests/testthat/testADTestStat.R	2015-06-23 21:28:41 UTC (rev 3729)
@@ -0,0 +1,11 @@
+test_that("AD Test Stat.",{
+
+  # Success cases were/can be tested by comparing plots and confidence intervals.
+  
+  # Error - 1
+  expect_error(val <- ADTestStat(1000, 100, 1.05))
+
+  # Error - 2
+  expect_error(val <- ADTestStat(1000, 100, -.95))
+  
+})
\ No newline at end of file