% BIN: "$SHELLSPEC_HELPERDIR/fixture/bin"

% FIXTURE: "$SHELLSPEC_HELPERDIR/fixture/install"

% TMPBASE: "$SHELLSPEC_TMPBASE/install"

Describe "script ./install.sh"

Skip if "readonly malfunction" readonly_malfunction

BeforeRun "HOME=$SHELLSPEC_TMPBASE/dummy_home"

It 'outputs usage'

When run script ./install.sh --help

The status should be success

The output should be present

End

It "exits with an error when specified invalid option"

When run script ./install.sh --invalid

The status should be failure

The error should be present

End

End

Describe "./install.sh"

Include ./install.sh

Describe "exists()"

It 'returns success when found executable file'

When call exists cat

The status should be success

End

It 'returns success when not found executable file'

When call exists no-such-a-command

The status should be failure

End

End

Describe "prompt()"

Context "when not pre answered"

Before ans=""

Data "answer"

It 'returns the answer'

Skip if "/dev/stdin not exists" [ ! -e /dev/stdin ]

When call prompt "Message:" ans /dev/stdin

The output should eq "Message: answer"

The variable ans should eq "answer"

End

It "returns error when not exists device"

When call prompt "Message:" ans /dev/no-such-a-device

The output should eq "Message: "

The error should be present

The variable ans should eq ""

The status should be failure

End

End

Context "when pre answered"

Before ans=pre-answer

It 'returns the answer'

When call prompt "Message:" ans /dev/no-such-a-device

The output should eq "Message: pre-answer"

The variable ans should eq "pre-answer"

End

End

End

Describe "confirm()"

Context "when not pre answered"

Before ans=""

Data "y"

It 'returns the answer'

Skip if "/dev/stdin not exists" [ ! -e /dev/stdin ]

When call confirm "Question? [y/N]" ans /dev/stdin

The stdout should eq "Question? [y/N] y"

The variable ans should eq "y"

End

It "returns error when not exists device"

When call confirm "Question? [y/N]" ans /dev/no-such-a-device

The output should eq "Question? [y/N] "

The error should be present

The variable ans should eq ""

The status should be failure

End

End

Context "when pre answer is y"

Before ans="y"

It 'returns yes with y'

When call confirm "Question? [y/N]" ans

The stdout should eq "Question? [y/N] y"

The status should be success

End

End

Context "when pre answer is n"

Before ans="n"

It 'returns no with n'

When call confirm "Question? [y/N]" ans

The stdout should eq "Question? [y/N] n"

The status should be failure

End

End

End

Describe "fetch()"

curl() { exit 1; }

wget() { exit 1; }

gunzip() { @gunzip "$@"; }

tar() { @tar "$@"; }

rm() { @rm "$@"; }

mkdir() { @mkdir "$@"; }

mv() { @mv "$@"; }

Context "with curl"

Before "FETCH=curl"

curl() {

}

It 'fetchs archive'

When call fetch "http://repo.test/b3d5591.tar.gz" "$TMPBASE/curl"

The file "$TMPBASE/curl/README.md" should be exist

The stderr should be defined # ignore stderr

End

End

Context "with wget"

Before "FETCH=wget"

wget() {

}

It 'fetchs archive'

When call fetch "http://repo.test/b3d5591.tar.gz" "$TMPBASE/wget"

The file "$TMPBASE/wget/README.md" should be exist

The stderr should be defined # ignore stderr

End

End

Context "when can not fetch file"

Before "FETCH=curl"

curl() { return 1; }

rm() { @rm "$@"; }

It 'does not create directory'

When call fetch "http://repo.test/b3d5591.tar.gz" "$TMPBASE/error"

The directory "$TMPBASE/error" should not be exist

The status should be failure

End

End

End

Describe "git_remote_tags()"

git() {

}

result() {

}

uniq() { eval @uniq ${1+'"$@"'}; }

It 'retrives tags'

When call git_remote_tags

The stdout should eq "$(result)"

End

End

Describe "join()"

Data

#|a

#|b

#|c

#|d

End

It 'joins by argument'

When call join ','

The stdout should eq "a,b,c,d"

End

End

Describe "list_versions()"

git_remote_tags() {

}

sort() { @sort "$@"; }

It 'lists versions'

When call list_versions

The stdout should eq "latest, 0.5.0, 0.6.0, 0.17.0, 0.18.0"

End

End

Describe "latest_version()"

git_remote_tags() {

}

sort() { @sort "$@"; }

It 'gets latest version'

When call latest_version

The stdout should eq "0.18.0"

End

End

Describe "version_sort()"

Data

#|2.0.0

#|1.0.0-alpha

#|1.0.0

#|1.0.0-alpha+001

#|2.1.1

#|latest

#|1.0.0-beta+exp.sha.5114f85

#|1.0.0-alpha.1

#|1.0.0-x.7.z.92

#|alpha

#|2.1.0

#|1.0.0+20130313144700

#|1.0.0-0.3.7

#|1.10.0

#|1.9.0

#|1.11.0

End

result() {

}

sort() { @sort "$@"; }

It "sorts by semantic version order"

When call version_sort

The stdout should eq "$(result)"

End

End

End