ns-3.5: src/core/value-test.cc@17f406c71505 (annotated)

2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	1	#ifdef RUN_SELF_TESTS
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	2	#include "test.h"
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	3	#include "object.h"
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	4	#include "boolean-value.h"
2375 6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	5	#include "int-value.h"
2378 bc706b6e9df3 add back UintValue Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2375 diff changeset	6	#include "uint-value.h"
2381 816df299095d add back EnumValue Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2378 diff changeset	7	#include "enum-value.h"
2384 500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	8	#include "random-variable.h"
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	9	#include "fp-value.h"
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	10	#include "object-vector.h"
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	11
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	12	namespace ns3 {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	13
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	14	class ParamSpecTest : public Test
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	15	{
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	16	public:
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	17	ParamSpecTest ();
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	18	virtual bool RunTests (void);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	19	private:
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	20	};
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	21
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	22	class Derived : public Object
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	23	{
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	24	public:
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	25	static TypeId GetTypeId (void) {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	26	static TypeId tid = TypeId ("Derived")
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	27	.SetParent<Object> ()
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	28	;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	29	return tid;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	30	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	31	};
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	32
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	33	class ParamSpecObjectTest : public Object
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	34	{
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	35	public:
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	36	enum TestEnum {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	37	TEST_A,
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	38	TEST_B,
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	39	TEST_C
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	40	};
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	41	static TypeId GetTypeId (void) {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	42	static TypeId tid = TypeId ("ParamSpecObjectTest")
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	43	.SetParent<Object> ()
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	44	.AddParameter ("TestBoolName", "help text",
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	45	MakeBooleanParamSpec (&ParamSpecObjectTest::m_boolTest, false))
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	46	.AddParameter ("TestBoolA", "help text",
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	47	MakeBooleanParamSpec (&ParamSpecObjectTest::DoSetTestB,
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	48	&ParamSpecObjectTest::DoGetTestB,
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	49	false))
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	50	.AddParameter ("TestPtr", "help text",
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	51	MakePtrParamSpec (&ParamSpecObjectTest::m_derived))
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	52	.AddParameter ("TestInt16", "help text",
2375 6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	53	MakeIntParamSpec (&ParamSpecObjectTest::m_int16,
6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	54	-2))
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	55	.AddParameter ("TestInt16WithBounds", "help text",
2375 6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	56	MakeIntParamSpec (&ParamSpecObjectTest::m_int16WithBounds,
6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	57	-2, -5, 10))
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	58	.AddParameter ("TestInt16SetGet", "help text",
2375 6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	59	MakeIntParamSpec (&ParamSpecObjectTest::DoSetInt16,
6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	60	&ParamSpecObjectTest::DoGetInt16,
6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	61	6))
2378 bc706b6e9df3 add back UintValue Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2375 diff changeset	62	.AddParameter ("TestUint8", "help text",
bc706b6e9df3 add back UintValue Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2375 diff changeset	63	MakeUintParamSpec (&ParamSpecObjectTest::m_uint8,
bc706b6e9df3 add back UintValue Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2375 diff changeset	64	1))
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	65	.AddParameter ("TestEnum", "help text",
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	66	MakeEnumParamSpec (&ParamSpecObjectTest::m_enum,
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	67	TEST_A, "TestA",
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	68	TEST_B, "TestB",
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	69	TEST_C, "TestC"))
2384 500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	70	.AddParameter ("TestRandom", "help text",
500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	71	MakeRandomVariableParamSpec (&ParamSpecObjectTest::m_random,
500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	72	ConstantVariable (1.0)))
2381 816df299095d add back EnumValue Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2378 diff changeset	73	.AddParameter ("TestFloat", "help text",
2385 ae4d6740d5a0 add back FpValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2384 diff changeset	74	MakeFpParamSpec (&ParamSpecObjectTest::m_float, -1.1))
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	75	.AddParameter ("TestVector1", "help text",
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	76	MakeObjectVectorParamSpec (&ParamSpecObjectTest::m_vector1))
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	77	.AddParameter ("TestVector2", "help text",
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	78	MakeObjectVectorParamSpec (&ParamSpecObjectTest::DoGetVectorN,
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	79	&ParamSpecObjectTest::DoGetVector))
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	80	;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	81
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	82	return tid;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	83	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	84
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	85	void AddToVector1 (void) {
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	86	m_vector1.push_back (CreateObject<Derived> ());
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	87	}
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	88	void AddToVector2 (void) {
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	89	m_vector2.push_back (CreateObject<Derived> ());
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	90	}
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	91
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	92	private:
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	93	void DoSetTestB (bool v) {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	94	m_boolTestA = v;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	95	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	96	bool DoGetTestB (void) const {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	97	return m_boolTestA;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	98	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	99	int16_t DoGetInt16 (void) const {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	100	return m_int16SetGet;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	101	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	102	void DoSetInt16 (int16_t v) {
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	103	m_int16SetGet = v;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	104	}
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	105	uint32_t DoGetVectorN (void) const {
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	106	return m_vector2.size ();
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	107	}
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	108	Ptr<Derived> DoGetVector (uint32_t i) const {
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	109	return m_vector2[i];
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	110	}
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	111	bool m_boolTestA;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	112	bool m_boolTest;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	113	Ptr<Derived> m_derived;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	114	int16_t m_int16;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	115	int16_t m_int16WithBounds;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	116	int16_t m_int16SetGet;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	117	uint8_t m_uint8;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	118	float m_float;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	119	enum TestEnum m_enum;
2384 500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	120	RandomVariable m_random;
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	121	std::vector<Ptr<Derived> > m_vector1;
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	122	std::vector<Ptr<Derived> > m_vector2;
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	123	};
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	124
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	125
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	126	#define CHECK_GET_STR(p,name,value) \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	127	{ \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	128	std::string expected = value; \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	129	std::string got; \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	130	bool ok = p->Get (name, got); \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	131	NS_TEST_ASSERT (ok); \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	132	NS_TEST_ASSERT_EQUAL (got, expected); \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	133	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	134	#define CHECK_GET_PARAM(p,name,type,value) \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	135	{ \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	136	const type expected = value; \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	137	type got = value; \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	138	PValue v = p->Get (name); \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	139	NS_TEST_ASSERT (v.DynCast<type *> () != 0); \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	140	got = v; \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	141	NS_TEST_ASSERT_EQUAL (got.Get (), expected.Get ()); \
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	142	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	143
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	144	NS_OBJECT_ENSURE_REGISTERED (ParamSpecObjectTest);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	145
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	146	ParamSpecTest::ParamSpecTest ()
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	147	: Test ("ParamSpec")
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	148	{}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	149	bool
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	150	ParamSpecTest::RunTests (void)
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	151	{
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	152	bool result = true;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	153
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	154	Parameters params;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	155	Ptr<ParamSpecObjectTest> p;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	156	NS_TEST_ASSERT (params.Set ("ParamSpecObjectTest::TestBoolName", "false"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	157	p = CreateObject<ParamSpecObjectTest> (params);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	158	CHECK_GET_STR (p, "TestBoolName", "false");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	159	CHECK_GET_PARAM (p, "TestBoolName", BooleanValue, false);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	160
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	161	NS_TEST_ASSERT (p->Set ("TestBoolName", "true"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	162	CHECK_GET_STR (p, "TestBoolName", "true");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	163	CHECK_GET_PARAM (p, "TestBoolName", BooleanValue, true);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	164
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	165	NS_TEST_ASSERT (p->Set ("TestBoolName", BooleanValue (false)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	166	CHECK_GET_STR (p, "TestBoolName", "false");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	167	CHECK_GET_PARAM (p, "TestBoolName", BooleanValue, false);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	168
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	169	p = CreateObjectWith<ParamSpecObjectTest> ("TestBoolName", "true");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	170	CHECK_GET_STR (p, "TestBoolName", "true");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	171	CHECK_GET_PARAM (p, "TestBoolName", BooleanValue, true);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	172
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	173	p = CreateObjectWith<ParamSpecObjectTest> ("TestBoolName", BooleanValue (true));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	174	CHECK_GET_STR (p, "TestBoolName", "true");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	175	CHECK_GET_PARAM (p, "TestBoolName", BooleanValue, true);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	176
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	177	NS_TEST_ASSERT (p->Set ("TestBoolA", "false"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	178	CHECK_GET_STR (p, "TestBoolA", "false");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	179	CHECK_GET_PARAM (p, "TestBoolA", BooleanValue, false);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	180
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	181	NS_TEST_ASSERT (p->Set ("TestBoolA", "true"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	182	CHECK_GET_STR (p, "TestBoolA", "true");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	183	CHECK_GET_PARAM (p, "TestBoolA", BooleanValue, true);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	184
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	185
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	186	Ptr<Derived> derived = p->Get ("TestPtr");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	187	NS_TEST_ASSERT (derived == 0);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	188	derived = Create<Derived> ();
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	189	NS_TEST_ASSERT (p->Set ("TestPtr", derived));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	190	Ptr<Derived> stored = p->Get ("TestPtr");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	191	NS_TEST_ASSERT (stored == derived);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	192	Ptr<Object> storedBase = p->Get ("TestPtr");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	193	NS_TEST_ASSERT (stored == storedBase);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	194	Ptr<ParamSpecObjectTest> x = p->Get ("TestPtr");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	195	NS_TEST_ASSERT (x == 0);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	196
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	197	p = CreateObjectWith<ParamSpecObjectTest> ("TestPtr", Create<Derived> ());
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	198	NS_TEST_ASSERT (p != 0);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	199	derived = 0;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	200	derived = p->Get ("TestPtr");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	201	NS_TEST_ASSERT (derived != 0);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	202
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	203	CHECK_GET_STR (p, "TestInt16", "-2");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	204	CHECK_GET_PARAM (p, "TestInt16", IntValue, -2);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	205
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	206	NS_TEST_ASSERT (p->Set ("TestInt16", "-5"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	207	CHECK_GET_STR (p, "TestInt16", "-5");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	208	CHECK_GET_PARAM (p, "TestInt16", IntValue, -5);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	209
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	210	NS_TEST_ASSERT (p->Set ("TestInt16", IntValue (+2)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	211	CHECK_GET_STR (p, "TestInt16", "2");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	212	CHECK_GET_PARAM (p, "TestInt16", IntValue, +2);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	213
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	214	NS_TEST_ASSERT (p->Set ("TestInt16", IntValue (-32768)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	215	CHECK_GET_STR (p, "TestInt16", "-32768");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	216	CHECK_GET_PARAM (p, "TestInt16", IntValue, -32768);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	217
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	218	NS_TEST_ASSERT (!p->Set ("TestInt16", IntValue (-32769)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	219	CHECK_GET_STR (p, "TestInt16", "-32768");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	220	CHECK_GET_PARAM (p, "TestInt16", IntValue, -32768);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	221
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	222	NS_TEST_ASSERT (p->Set ("TestInt16", IntValue (32767)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	223	CHECK_GET_STR (p, "TestInt16", "32767");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	224	CHECK_GET_PARAM (p, "TestInt16", IntValue, 32767);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	225
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	226	NS_TEST_ASSERT (!p->Set ("TestInt16", IntValue (32768)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	227	CHECK_GET_STR (p, "TestInt16", "32767");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	228	CHECK_GET_PARAM (p, "TestInt16", IntValue, 32767);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	229
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	230	NS_TEST_ASSERT (p->Set ("TestInt16WithBounds", IntValue (10)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	231	CHECK_GET_STR (p, "TestInt16WithBounds", "10");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	232	CHECK_GET_PARAM (p, "TestInt16WithBounds", IntValue, 10);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	233	NS_TEST_ASSERT (!p->Set ("TestInt16WithBounds", IntValue (11)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	234	CHECK_GET_STR (p, "TestInt16WithBounds", "10");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	235	CHECK_GET_PARAM (p, "TestInt16WithBounds", IntValue, 10);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	236
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	237	NS_TEST_ASSERT (p->Set ("TestInt16WithBounds", IntValue (-5)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	238	CHECK_GET_STR (p, "TestInt16WithBounds", "-5");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	239	CHECK_GET_PARAM (p, "TestInt16WithBounds", IntValue, -5);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	240	NS_TEST_ASSERT (!p->Set ("TestInt16WithBounds", IntValue (-6)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	241	CHECK_GET_STR (p, "TestInt16WithBounds", "-5");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	242	CHECK_GET_PARAM (p, "TestInt16WithBounds", IntValue, -5);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	243
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	244	CHECK_GET_STR (p, "TestInt16SetGet", "6");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	245	CHECK_GET_PARAM (p, "TestInt16SetGet", IntValue, 6);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	246	NS_TEST_ASSERT (p->Set ("TestInt16SetGet", IntValue (0)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	247	CHECK_GET_STR (p, "TestInt16SetGet", "0");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	248	CHECK_GET_PARAM (p, "TestInt16SetGet", IntValue, 0);
2375 6f8733409b3b add back IntValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2374 diff changeset	249
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	250	CHECK_GET_STR (p, "TestUint8", "1");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	251	CHECK_GET_PARAM (p, "TestUint8", UintValue, 1);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	252	NS_TEST_ASSERT (p->Set ("TestUint8", UintValue (0)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	253	CHECK_GET_STR (p, "TestUint8", "0");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	254	CHECK_GET_PARAM (p, "TestUint8", UintValue, 0);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	255	NS_TEST_ASSERT (p->Set ("TestUint8", UintValue (255)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	256	CHECK_GET_STR (p, "TestUint8", "255");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	257	CHECK_GET_PARAM (p, "TestUint8", UintValue, 255);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	258	NS_TEST_ASSERT (p->Set ("TestUint8", "255"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	259	CHECK_GET_STR (p, "TestUint8", "255");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	260	CHECK_GET_PARAM (p, "TestUint8", UintValue, 255);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	261	NS_TEST_ASSERT (!p->Set ("TestUint8", "256"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	262	CHECK_GET_STR (p, "TestUint8", "255");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	263	CHECK_GET_PARAM (p, "TestUint8", UintValue, 255);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	264	NS_TEST_ASSERT (!p->Set ("TestUint8", "-1"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	265	CHECK_GET_STR (p, "TestUint8", "255");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	266	CHECK_GET_PARAM (p, "TestUint8", UintValue, 255);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	267	NS_TEST_ASSERT (!p->Set ("TestUint8", UintValue (-1)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	268	CHECK_GET_STR (p, "TestUint8", "255");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	269	CHECK_GET_PARAM (p, "TestUint8", UintValue, 255);
2385 ae4d6740d5a0 add back FpValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2384 diff changeset	270
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	271	CHECK_GET_STR (p, "TestFloat", "-1.1");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	272	NS_TEST_ASSERT (p->Set ("TestFloat", FpValue ((float)+2.3)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	273	CHECK_GET_PARAM (p, "TestFloat", FpValue, (float)+2.3);
2385 ae4d6740d5a0 add back FpValue support Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2384 diff changeset	274
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	275	CHECK_GET_STR (p, "TestEnum", "TestA");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	276	CHECK_GET_PARAM (p, "TestEnum", EnumValue, ParamSpecObjectTest::TEST_A);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	277	NS_TEST_ASSERT (p->Set ("TestEnum", EnumValue (ParamSpecObjectTest::TEST_C)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	278	CHECK_GET_STR (p, "TestEnum", "TestC");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	279	CHECK_GET_PARAM (p, "TestEnum", EnumValue, ParamSpecObjectTest::TEST_C);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	280	NS_TEST_ASSERT (p->Set ("TestEnum", "TestB"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	281	CHECK_GET_STR (p, "TestEnum", "TestB");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	282	CHECK_GET_PARAM (p, "TestEnum", EnumValue, ParamSpecObjectTest::TEST_B);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	283	NS_TEST_ASSERT (!p->Set ("TestEnum", "TestD"));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	284	CHECK_GET_STR (p, "TestEnum", "TestB");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	285	CHECK_GET_PARAM (p, "TestEnum", EnumValue, ParamSpecObjectTest::TEST_B);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	286	NS_TEST_ASSERT (!p->Set ("TestEnum", EnumValue (5)));
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	287	CHECK_GET_STR (p, "TestEnum", "TestB");
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	288	CHECK_GET_PARAM (p, "TestEnum", EnumValue, ParamSpecObjectTest::TEST_B);
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	289
2384 500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	290	RandomVariable ran = p->Get ("TestRandom");
500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	291	NS_TEST_ASSERT (p->Set ("TestRandom", UniformVariable (0.0, 1.0)));
500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	292	NS_TEST_ASSERT (p->Set ("TestRandom", ConstantVariable (10.0)));
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	293
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	294	{
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	295	ObjectVector vector = p->Get ("TestVector1");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	296	NS_TEST_ASSERT_EQUAL (vector.GetN (), 0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	297	p->AddToVector1 ();
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	298	NS_TEST_ASSERT_EQUAL (vector.GetN (), 0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	299	vector = p->Get ("TestVector1");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	300	NS_TEST_ASSERT_EQUAL (vector.GetN (), 1);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	301	Ptr<Object> a = vector.Get (0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	302	NS_TEST_ASSERT_UNEQUAL (a, 0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	303	p->AddToVector1 ();
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	304	NS_TEST_ASSERT_EQUAL (vector.GetN (), 1);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	305	vector = p->Get ("TestVector1");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	306	NS_TEST_ASSERT_EQUAL (vector.GetN (), 2);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	307	}
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	308
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	309	{
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	310	ObjectVector vector = p->Get ("TestVector2");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	311	NS_TEST_ASSERT_EQUAL (vector.GetN (), 0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	312	p->AddToVector2 ();
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	313	NS_TEST_ASSERT_EQUAL (vector.GetN (), 0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	314	vector = p->Get ("TestVector2");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	315	NS_TEST_ASSERT_EQUAL (vector.GetN (), 1);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	316	Ptr<Object> a = vector.Get (0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	317	NS_TEST_ASSERT_UNEQUAL (a, 0);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	318	p->AddToVector2 ();
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	319	NS_TEST_ASSERT_EQUAL (vector.GetN (), 1);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	320	vector = p->Get ("TestVector2");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	321	NS_TEST_ASSERT_EQUAL (vector.GetN (), 2);
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	322	}
2384 500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	323
500ada6a4874 add Value support to RandomVariable. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2381 diff changeset	324
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	325	#if 0
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	326	p->Set ("TestBool"TestVector2"", "true");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	327	NS_TEST_ASSERT_EQUAL (p->Get ("TestBool"), "true");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	328	p->Set ("TestBool", "false");
17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	329	NS_TEST_ASSERT_EQUAL (p->Get ("TestBool"), "false");
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	330
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	331	Parameters::GetGlobal ()->Set ("TestBool", "true");
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	332	p = CreateObjectWith<ParamSpecObjectTest> ();
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	333	NS_TEST_ASSERT_EQUAL (p->Get ("TestBool"), "true");
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	334
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	335	Parameters::GetGlobal ()->Set ("TestBool", "false");
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	336	p = CreateObjectWith<ParamSpecObjectTest> ();
2405 17f406c71505 add ObjectVector value support. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: 2385 diff changeset	337	NS_TEST_ASSERT_EQUAL (p->Get ("TestBool"), "false");
2374 570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	338	#endif
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	339	return result;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	340	}
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	341
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	342
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	343
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	344	static ParamSpecTest g_parameterTest;
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	345
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	346	} // namespace ns3
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	347
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	348
570f3c6c6142 make Ptr<T> convertible to a Value. Mathieu Lacage <mathieu.lacage@sophia.inria.fr> parents: diff changeset	349	#endif /* RUN_SELF_TESTS */

author	Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
	Mon, 11 Feb 2008 04:26:09 +0100
changeset 2405	17f406c71505
parent 2385	ae4d6740d5a0
child 2424	217a447122a6
permissions	-rw-r--r--