@@ -123,15 +123,15 @@ $value = $object->value($tag); ok $value->is_float; ok $value->value == 0; -ok $object->tag($tag, 0.1, fdb_type => 'float'); +ok $object->tag($tag, 0.5, fdb_type => 'float'); $value = $object->value($tag); ok $value->is_float; -ok $value->value == 0.1; +ok $value->value == 0.5; -ok $object->tag($tag, -3.2, fdb_type => 'float'); +ok $object->tag($tag, -0.5, fdb_type => 'float'); $value = $object->value($tag); ok $value->is_float; -ok $value->value == -3.2; +ok $value->value == -0.5; ok $object->tag($tag, 1e9, fdb_type => 'float'); $value = $object->value($tag); @@ -143,10 +143,10 @@ $value = $object->value($tag); ok $value->is_float; ok $value->value == 0; -ok $object->tag($tag, '-76.3', fdb_type => 'float'); +ok $object->tag($tag, '-2.5', fdb_type => 'float'); $value = $object->value($tag); ok $value->is_float; -ok $value->value == -76.3; +ok $value->value == -2.5; ok $object->tag($tag, "this is a string", fdb_type => 'string'); $value = $object->value($tag); t/22-tagging.t b17487439eac6fda78ab660f247de8e4078e30c2 Xavier Noria fxn@hashref.com http://github.com/fxn/net-fluiddb/commit/066053399a4f82fbf9be3c63db4fa0b6e9b12171 066053399a4f82fbf9be3c63db4fa0b6e9b12171 2009-10-15T10:49:29-07:00 2009-10-15T10:49:29-07:00 fixes a few tests to pass in Perl with long doubles (nvsize=16) 046b251879c57c09eae122a63685dbf048c8fdfa Xavier Noria fxn@hashref.com