File: runit.bonds.R

package info (click to toggle)
r-cran-rcdk 3.8.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 888 kB
  • sloc: makefile: 14; sh: 13
file content (8 lines) | stat: -rwxr-xr-x 238 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
 
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'))
}