tests/testthat/test_warunek_wygranej.R

test_that("Spelniony warunek wygranej",{expect_true(czy_wygrana(c(1,1,1,1,1,1,1)))})

test_that("Spelniony warunek wygranej",{expect_true(czy_wygrana(c(1,1,1,1,1,0,0)))})

test_that("Niespelniony warunek wygranej",{expect_false(czy_wygrana(c(1,1,1,0,1,1,1)))})

test_that("Niespelniony warunek wygranej",{expect_false(czy_wygrana(c(0,0,0,0,1,0,0)))})
PawKed/SuperFarmerPKEK documentation built on May 8, 2019, 1:27 a.m.