# 
# 
# add_file "tests/t_ls_epochs.at"
#  content [df7a1cd6fdb5912fa9640ff201d114a10448c239]
# 
# patch "ChangeLog"
#  from [910ae967d85f592940c6b94d0d6d4ba5d4efcfd4]
#    to [8c912c0aa453fdfa1e12dadf653b6dcdc64d2d21]
# 
# patch "testsuite.at"
#  from [5a691540cb55e123044af53bb5da58de2862d5be]
#    to [839af0737ee60440ee431429003e48eca95e9288]
# 
============================================================
--- tests/t_ls_epochs.at	df7a1cd6fdb5912fa9640ff201d114a10448c239
+++ tests/t_ls_epochs.at	df7a1cd6fdb5912fa9640ff201d114a10448c239
@@ -0,0 +1,25 @@
+AT_SETUP([ls epochs])
+
+MTN_SETUP
+
+ADD_FILE(testfile, [version 0 data
+])
+COMMIT(testbranch)
+
+ADD_FILE(testfile2, [other data
+])
+COMMIT(otherbranch)
+
+AT_CHECK(MTN db set_epoch testbranch 12345, [1], [ignore], [ignore])
+AT_CHECK(MTN db set_epoch testbranch aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa, [], [ignore], [ignore])
+AT_CHECK(MTN db set_epoch otherbranch bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb, [], [ignore], [ignore])
+
+AT_CHECK(MTN list epochs, [], [stdout])
+AT_CHECK(grep testbranch stdout, [0], [ignore])
+AT_CHECK(grep otherbranch stdout, [0], [ignore])
+AT_CHECK(MTN list epochs testbranch, [], [stdout])
+AT_CHECK(grep testbranch stdout, [0], [ignore])
+AT_CHECK(grep otherbranch stdout, [1], [ignore])
+
+
+AT_CLEANUP
============================================================
--- ChangeLog	910ae967d85f592940c6b94d0d6d4ba5d4efcfd4
+++ ChangeLog	8c912c0aa453fdfa1e12dadf653b6dcdc64d2d21
@@ -1,5 +1,11 @@
 2006-04-20  Timtohy Brownawell  <address@hidden>
 
+	* tests/t_ls_epochs.at: New file: test "ls epochs" and
+	"ls epochs <branch>"
+	* testsuite.at: Add it.
+
+2006-04-20  Timtohy Brownawell  <address@hidden>
+
 	* tests/t_checkout_heads.at: New file: checkout should fail if there
 	are multiple heads.
 	* testsuite.at: Add it.
============================================================
--- testsuite.at	5a691540cb55e123044af53bb5da58de2862d5be
+++ testsuite.at	839af0737ee60440ee431429003e48eca95e9288
@@ -879,3 +879,4 @@
 m4_include(tests/t_help.at)
 m4_include(tests/t_approve.at)
 m4_include(tests/t_checkout_heads.at)
+m4_include(tests/t_ls_epochs.at)