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)))})
ekarbowiak/SuperFarmerPKEK documentation built on May 16, 2019, 2:23 a.m.