tests/testthat/test_interleave.R

library(eRle);

context('interleave');

test_that(
    'Equal length vectors interleave correctly', {
        
        expect_equal(
            interleave(1:2, 3:4),
            c(1, 3, 2, 4)
            );
    
        expect_equal(
            interleave(1, 2), 
            c(1, 2)
            );
    });
wuergh/eRle documentation built on June 1, 2019, 2:57 p.m.