#
# Copyright (c) 2016 D. Richard Hipp
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the Simplified BSD License (also
# known as the "2-Clause License" or "FreeBSD License".)
#
# This program is distributed in the hope that it will be useful,
# but without any warranty; without even the implied warranty of
# merchantability or fitness for a particular purpose.
#
# Author contact information:
# drh@hwaci.com
# http://www.hwaci.com/drh/
#
############################################################################
#
# The "unversioned" command.
#
set path [file dirname [info script]]
if {[catch {package require sha1}] != 0} then {
puts "The \"sha1\" package is not available."
test_cleanup_then_return
}
require_no_open_checkout
test_setup; set rootDir [file normalize [pwd]]
write_file unversioned1.txt "This is unversioned file #1."
write_file unversioned2.txt " This is unversioned file #2. "
write_file "unversioned space.txt" "\nThis is unversioned file #3.\n"
write_file unversioned4.txt "This is unversioned file #4."
write_file unversioned5.txt "This is unversioned file #5."
###############################################################################
fossil unversioned
test unversioned-1 {[normalize_result] eq \
[string map [list %fossil% [file nativename $fossilexe]] {Usage: %fossil%\
unversioned add|cat|edit|export|list|revert|remove|sync|touch}]}
###############################################################################
fossil unversioned list
test unversioned-2 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat not-found.txt
test unversioned-3 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat unversioned1.txt
test unversioned-4 {[normalize_result] eq {}}
###############################################################################
fossil unversioned add unversioned1.txt
test unversioned-5 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat unversioned1.txt
test unversioned-6 {[normalize_result] eq {This is unversioned file #1.}}
###############################################################################
fossil unversioned list
test unversioned-7 {[regexp \
{^[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\
unversioned1\.txt$} [normalize_result]]}
###############################################################################
fossil unversioned ls
test unversioned-8 {[normalize_result] eq {unversioned1.txt}}
###############################################################################
fossil unversioned remove unversioned1.txt
test unversioned-9 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list
test unversioned-10 {[normalize_result] eq {}}
###############################################################################
fossil unversioned ls
test unversioned-11 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list --all
test unversioned-12 {[regexp \
{^\(deleted\) \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 0 0\
unversioned1\.txt$} [normalize_result]]}
###############################################################################
fossil unversioned ls --all
test unversioned-13 {[normalize_result] eq {unversioned1.txt}}
###############################################################################
fossil unversioned add "unversioned space.txt" -expectError
test unversioned-14 {[normalize_result] eq \
{names of unversioned files may not contain whitespace}}
###############################################################################
fossil unversioned add "unversioned space.txt" --as unversioned3.txt
test unversioned-15 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list
test unversioned-16 {[regexp \
{^[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 30 30\
unversioned3\.txt$} [normalize_result]]}
###############################################################################
fossil unversioned ls --l
test unversioned-17 {[regexp \
{^[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 30 30\
unversioned3\.txt$} [normalize_result]]}
###############################################################################
fossil unversioned ls
test unversioned-18 {[normalize_result] eq {unversioned3.txt}}
###############################################################################
fossil unversioned add unversioned2.txt --mtime 2016-10-01
test unversioned-19 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list
test unversioned-20 {[regexp \
{^[0-9a-f]{12} 2016-10-01 00:00:00 30 30\
unversioned2\.txt
[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 30 30\
unversioned3\.txt$} [normalize_result]]}
###############################################################################
fossil unversioned ls
test unversioned-21 {[normalize_result] eq {unversioned2.txt
unversioned3.txt}}
###############################################################################
fossil unversioned cat unversioned1.txt
test unversioned-22 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat unversioned2.txt
test unversioned-23 {[::sha1::sha1 $RESULT] eq \
{962f96ebd613e4fdd9aa2d20bd9fe21a64e925f2}}
###############################################################################
fossil unversioned cat unversioned3.txt
test unversioned-24 {[::sha1::sha1 $RESULT] eq \
{c6b95509120d9703cc4fbe5cdfcb435b5912b3e4}}
###############################################################################
fossil unversioned rm unversioned3.txt
test unversioned-25 {[normalize_result] eq {}}
###############################################################################
fossil unversioned add unversioned4.txt
test unversioned-26 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat unversioned4.txt
set hash(before) [::sha1::sha1 $RESULT]
test unversioned-27 {$hash(before) eq \
{b48ba8e2d0b498321dfd13de84867effda399af5}}
###############################################################################
set env(VISUAL) [appendArgs \
[info nameofexecutable] " " [file join $path fake-editor.tcl]]
fossil unversioned edit unversioned4.txt
test unversioned-28 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat unversioned4.txt
set hash(after) [::sha1::sha1 $RESULT]
test unversioned-29 {$hash(after) ne $hash(before)}
test unversioned-30 {[regexp { \d+ (?:-)?\d+$} $RESULT]}
###############################################################################
fossil unversioned edit unversioned4.txt --mtime 2016-10-01
test unversioned-31 {[normalize_result] eq {}}
###############################################################################
fossil unversioned cat unversioned4.txt
test unversioned-32 {[regexp { \d+ (?:-)?\d+ \d+ (?:-)?\d+$} $RESULT]}
###############################################################################
fossil unversioned list
test unversioned-33 {[regexp \
{^[0-9a-f]{12} 2016-10-01 00:00:00 30 30\
unversioned2\.txt
[0-9a-f]{12} 2016-10-01 00:00:00 \d+ \d+\
unversioned4\.txt$} [normalize_result]]}
###############################################################################
fossil unversioned export unversioned2.txt unversioned2-ex.txt
test unversioned-34 {[normalize_result] eq {}}
test unversioned-35 {[::sha1::sha1 -hex -filename unversioned2-ex.txt] eq \
{962f96ebd613e4fdd9aa2d20bd9fe21a64e925f2}}
###############################################################################
fossil unversioned hash
test unversioned-36 {[regexp {^[0-9a-f]{40}$} [normalize_result]]}
###############################################################################
fossil unversioned hash --debug
test unversioned-37 {[regexp \
{^unversioned2\.txt 2016-10-01 00:00:00 [0-9a-f]{40}
unversioned4\.txt 2016-10-01 00:00:00 [0-9a-f]{40}
[0-9a-f]{40}$} [normalize_result]]}
###############################################################################
fossil unversioned remove unversioned4.txt --mtime "2016-10-02 13:47:29"
test unversioned-38 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list --all
test unversioned-39 {[regexp \
{^\(deleted\) \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 0 0\
unversioned1\.txt
[0-9a-f]{12} 2016-10-01 00:00:00 30 30 unversioned2\.txt
\(deleted\) \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 0 0\
unversioned3\.txt
\(deleted\) 2016-10-02 13:47:29 0 0 unversioned4\.txt$} \
[normalize_result]]}
###############################################################################
fossil unversioned touch unversioned1.txt --mtime "2016-10-03 23:01:44"
test unversioned-40 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list --all
test unversioned-41 {[regexp \
{^\(deleted\) 2016-10-03 23:01:44 0 0\
unversioned1\.txt
[0-9a-f]{12} 2016-10-01 00:00:00 30 30 unversioned2\.txt
\(deleted\) \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 0 0\
unversioned3\.txt
\(deleted\) 2016-10-02 13:47:29 0 0 unversioned4\.txt$} \
[normalize_result]]}
###############################################################################
fossil unversioned add unversioned5.txt
test unversioned-42 {[normalize_result] eq {}}
###############################################################################
fossil unversioned touch unversioned5.txt
test unversioned-43 {[normalize_result] eq {}}
###############################################################################
fossil unversioned list
test unversioned-44 {[regexp \
{^[0-9a-f]{12} 2016-10-01 00:00:00 30 30 unversioned2\.txt
[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\
unversioned5\.txt$} [normalize_result]]}
###############################################################################
#
# TODO: Add tests for the unversioned "revert" and "sync" sub-commands.
#
# revert --verbose --dryrun
# sync
#
###############################################################################
test_cleanup