diff --git a/tests/testthat/test-A-02-smokeTests.R b/tests/testthat/test-A-02-smokeTests.R
index d360b00..cbdb801 100644
--- a/tests/testthat/test-A-02-smokeTests.R
+++ b/tests/testthat/test-A-02-smokeTests.R
@@ -116,7 +116,7 @@ for(i in 1:nrow(scenarios)) {
# cat(paste(as.vector(pt$cells$asMatrix()), sep=", ", collapse=", "))
# prepStr(as.character(pt$getHtml()))
res <- c(3079, 22133, 5638, 2137, 32987, NA, NA, 8849, 6457, 15306, NA, 732, NA, NA, 732, 3079, 22865, 14487, 8594, 49025, 830, 63, 5591, NA, 6484, NA, NA, 28201, NA, 28201, 830, 63, 33792, NA, 34685, 3909, 22928, 48279, 8594, 83710)
- html <- "\n \n \n | Express Passenger | \n Ordinary Passenger | \n Total | \n
\n \n | DMU | \n EMU | \n HST | \n Total | \n DMU | \n EMU | \n Total | \n | \n
\n \n \n | 3079 | \n | \n | \n 3079 | \n 830 | \n | \n 830 | \n 3909 | \n
\n \n \n | 22133 | \n | \n 732 | \n 22865 | \n 63 | \n | \n 63 | \n 22928 | \n
\n \n \n | 5638 | \n 8849 | \n | \n 14487 | \n 5591 | \n 28201 | \n 33792 | \n 48279 | \n
\n \n \n | 2137 | \n 6457 | \n | \n 8594 | \n | \n | \n | \n 8594 | \n
\n \n \n | 32987 | \n 15306 | \n 732 | \n 49025 | \n 6484 | \n 28201 | \n 34685 | \n 83710 | \n
\n
"
+ html <- "\n \n \n | Express Passenger | \n Ordinary Passenger | \n Total | \n
\n \n | DMU | \n EMU | \n HST | \n Total | \n DMU | \n EMU | \n Total | \n | \n
\n \n \n | 3079 | \n | \n | \n 3079 | \n 830 | \n | \n 830 | \n 3909 | \n
\n \n \n | 22133 | \n | \n 732 | \n 22865 | \n 63 | \n | \n 63 | \n 22928 | \n
\n \n \n | 5638 | \n 8849 | \n | \n 14487 | \n 5591 | \n 28201 | \n 33792 | \n 48279 | \n
\n \n \n | 2137 | \n 6457 | \n | \n 8594 | \n | \n | \n | \n 8594 | \n
\n \n \n | 32987 | \n 15306 | \n 732 | \n 49025 | \n 6484 | \n 28201 | \n 34685 | \n 83710 | \n
\n
"
expect_equal(pt$cells$asMatrix(), matrix(res, nrow=5))
expect_identical(as.character(pt$getHtml()), html)