inst/unitTests/runit.bonds.R

test.bond.order <- function()
{
  m <- parse.smiles('CCN')[[1]]
  b <- get.bonds(m)[[1]]
  checkTrue(b$getOrder() == get.bond.order('single'))
  b$setOrder(get.bond.order("double"))
  checkTrue(b$getOrder() == get.bond.order('double'))
}

Try the rcdk package in your browser

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

rcdk documentation built on July 9, 2023, 7:27 p.m.