tests/testthat/test-test_add_channel_noise.R

In tom-christie/transmit: Transmitting information using Poisson processes and Bayesian inference

test_that("testing adding channel noise", {
    
    codebook <- construct_codebook(c('A', 'B', 'C'))
    
    signal <- encode_signal(
        codebook=codebook,
        symbol = 'A',
        signal_power = 3,
        duration_in_seconds = 10
    )
    
    result <- add_channel_noise(
        codebook,
        signal = signal,
        noise_power = 10,
        duration_in_seconds = 10
    )
    
    expect_true('group_index' %in% colnames(result))
    expect_true('spike_time' %in% colnames(result))
    expect_true('type' %in% colnames(result))
    expect_true(nrow(result) > 1)
    
})