object_test.go

// Copyright 2014 SteelSeries ApS.  All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

// This package implements a basic LISP interpretor for embedding in a go program for scripting.
// This file tests the Object data type.

package golisp

import (
	. "gopkg.in/check.v1"
	"unsafe"
)

type ObjectAtomSuite struct {
	o *Data
}

var _ = Suite(&ObjectAtomSuite{})

type TestStruct struct {
	D int
}

func (s *ObjectAtomSuite) TestObject(c *C) {
	obj := &TestStruct{D: 5}
	s.o = ObjectWithTypeAndValue("TestStruct", unsafe.Pointer(obj))
	c.Assert(ObjectType(s.o), Equals, "TestStruct")
	c.Assert((*TestStruct)(ObjectValue(s.o)), Equals, obj)
	c.Assert((*TestStruct)(ObjectValue(s.o)).D, Equals, 5)
}

func (s *ObjectAtomSuite) TestObjectForNil(c *C) {
	c.Assert(ObjectValue(nil), Equals, unsafe.Pointer(nil))
	c.Assert(ObjectType(nil), Equals, "")
}

func (s *ObjectAtomSuite) TestObjectForNonObject(c *C) {
	o := IntegerWithValue(0)
	c.Assert(ObjectValue(o), Equals, unsafe.Pointer(nil))
	c.Assert(ObjectType(o), Equals, "")
}