tests/testthat/test_aad.R

test_that("Test suite aad.R",{  # tests of signature

    expect_silent(signature())
    expect_silent(signature(Inf))

    expect_error(signature(1:2))
    expect_error(signature(0.5))
    
    signature(Inf)
    expect_true(basis(1)*basis(1) == as.scalar(1))
    expect_true(basis(2)*basis(2) == as.scalar(1))
    expect_true(basis(1)*basis(2) ==  basis(1:2))
    expect_true(basis(2)*basis(1) == -basis(1:2))

    signature(1,1)
    expect_true(basis(1)*basis(1) ==  as.scalar(1))
    expect_true(basis(2)*basis(2) == -as.scalar(1))
    expect_true(basis(1)*basis(2) ==  basis(1:2))
    expect_true(basis(2)*basis(1) == -basis(1:2))
    expect_true(1/basis(1) ==  basis(1))


    signature(0,0)  # reduces to Grassman algebra
    expect_true(basis(1)*basis(1) == as.clifford(0))
    expect_true(basis(2)*basis(2) == as.clifford(0))
    expect_true(basis(1)*basis(2) ==  basis(1:2))
    expect_true(basis(2)*basis(1) == -basis(1:2))
    expect_error(1/basis(1))
    expect_error(1/basis(2))

    
    signature(Inf,0)
    expect_true(1/basis(1) == basis(1))
    expect_true(1/basis(2) == basis(2))

    signature(1,0)
    expect_true(1/basis(1) == +basis(1))

    expect_true(basis(1) %^% basis(2) + basis(2) %^% basis(1) == as.clifford(0))

    signature(0,0)
    options("show_signature" = TRUE)
    signature(2,0)

    signature(0,0)
    signature(Inf,0)

    x <- clifford(list(6,8,9,22),1:4)
    expect_true(as.1vector(as.vector(x)) == x)

})

Try the clifford package in your browser

Any scripts or data that you put into this service are public.

clifford documentation built on Aug. 14, 2022, 1:05 a.m.