git-mv to work with Perl 5.6
[git/jrn.git] / t / t3200-branch.sh
blob36f7749bed8a40f50f218bbd6c4dcf7763c5abee
1 #!/bin/sh
3 # Copyright (c) 2005 Amos Waterland
6 test_description='git branch --foo should not create bogus branch
8 This test runs git branch --help and checks that the argument is properly
9 handled. Specifically, that a bogus branch is not created.
11 . ./test-lib.sh
13 test_expect_success \
14 'prepare an trivial repository' \
15 'echo Hello > A &&
16 git-update-index --add A &&
17 git-commit -m "Initial commit."'
19 test_expect_failure \
20 'git branch --help should return error code' \
21 'git-branch --help'
23 test_expect_failure \
24 'git branch --help should not have created a bogus branch' \
25 'test -f .git/refs/heads/--help'
27 test_expect_success \
28 'git branch abc should create a branch' \
29 'git-branch abc && test -f .git/refs/heads/abc'
31 test_expect_success \
32 'git branch a/b/c should create a branch' \
33 'git-branch a/b/c && test -f .git/refs/heads/a/b/c'
35 test_done