Fix completely-broken Time::scale.

1 files changed, 16 insertions, 0 deletions

diff --git a/test/time_test.cc b/test/time_test.cc
index 3fa9cb5..d103efc 100644
--- a/test/time_test.cc
+++ b/test/time_test.cc
@@ -81,3 +81,19 @@ BOOST_AUTO_TEST_CASE (time_add_test)
 	t.add (sub::Time::from_frames(54641, sub::Rational(24, 1)));
 	BOOST_CHECK_EQUAL (t, sub::Time::from_hmsf (0, 42, 4, 916, sub::Rational(1000, 1)));
 }
+
+BOOST_AUTO_TEST_CASE (time_scale_test1)
+{
+	sub::Time t = sub::Time::from_hmsf (0, 0, 1, 0, sub::Rational(1000, 1));
+	t.scale (0.96);
+	BOOST_CHECK_EQUAL (t.seconds(), 0);
+	BOOST_CHECK_EQUAL (t.frames_at(sub::Rational(1000, 1)), 960);
+}
+
+BOOST_AUTO_TEST_CASE (time_scale_test2)
+{
+	sub::Time t = sub::Time::from_hmsf (0, 0, 2, 0, sub::Rational(1000, 1));
+	t.scale (0.96);
+	BOOST_CHECK_EQUAL (t.seconds(), 1);
+	BOOST_CHECK_EQUAL (t.frames_at(sub::Rational(1000, 1)), 920);
+}