inst/tests/test-grplot.R

In rjbgoudie/parental: Light-weight graph package

# Part of the "parental" package, http://github.com/rjbgoudie/parental
# 
# This software is distributed under the GPL-3 license.  It is free,
# open source, and has the attribution requirements (GPL Section 7) in
#   http://github.com/rjbgoudie/parental
# 
# Note that it is required that attributions are retained with each function.
#
# Copyright 2008 Robert J. B. Goudie, University of Warwick

context("Plotting primitives")

test_that("toAdjacencyMatrix", {
  plot <- F
  
  x1 <- 0
  y1 <- 0
  x2 <- 1
  y2 <- 1
  w1 <- 0.25
  h1 <- 0.25
  w2 <- 0.25
  h2 <- 0.25
  
  if (plot){
    plot(x = c(x1, x2),
           y = c(y1, y2))
    lines(x = c(x1 - w1/2, x1 + w1/2, x1 + w1/2, x1 - w1/2, x1 - w1/2),
          y = c(y1 - h1/2, y1 - h1/2, y1 + h1/2, y1 + h1/2, y1 - h1/2))
    lines(x = c(x2 - w2/2, x2 + w2/2, x2 + w2/2, x2 - w2/2, x2 - w2/2),
          y = c(y2 - h2/2, y2 - h2/2, y2 + h2/2, y2 + h2/2, y2 - h2/2))
    out <- coordinatesBetweenRectangles(x1, y1, x2, y2, w1, h1, w2, h2)
    lines(x = out[c(1,3)],
          y = out[c(2,4)])
  }
  
  expect_that(
    coordinatesBetweenRectangles(x1, y1, x2, y2, w1, h1, w2, h2),
    equals(c(0.125, 0.125, 0.875, 0.875)))
  
  x1 <- 1
  y1 <- 1
  x2 <- 0
  y2 <- 0
  w1 <- 0.25
  h1 <- 0.25
  w2 <- 0.25
  h2 <- 0.25
  expect_that(
    coordinatesBetweenRectangles(x1, y1, x2, y2, w1, h1, w2, h2),
    equals(c(0.875, 0.875, 0.125, 0.125)))

  x1 <- 1
  y1 <- 1
  x2 <- 1
  y2 <- 0
  w1 <- 0.25
  h1 <- 0.25
  w2 <- 0.25
  h2 <- 0.25
  
  x1 <- 1
  y1 <- 0
  x2 <- 0
  y2 <- 0
  w1 <- 0.25
  h1 <- 0.25
  w2 <- 0.25
  h2 <- 0.25
  
  x1 <- 1
  y1 <- 1
  x2 <- 0
  y2 <- 0
  w1 <- 0.25
  h1 <- 0.25
  w2 <- 0.25
  h2 <- 0.25
  
  x1 <- 1.5
  y1 <- 2
  x2 <- 0
  y2 <- 0
  w1 <- 0.5
  h1 <- 0.5
  w2 <- 0.25
  h2 <- 0.25
})