1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/env bats
load helpers
# helper function for "podman tag/untag" test
function _tag_and_check() {
local tag_as="$1"
local check_as="$2"
run_podman tag $IMAGE $tag_as
run_podman image exists $check_as
run_podman untag $IMAGE $check_as
run_podman 1 image exists $check_as
}
# bats test_tags=ci:parallel
@test "podman tag/untag" {
registry="bogusregistry.nxdomain"
imgname=i-$(safename)
# Test a fully-qualified image reference.
_tag_and_check "$registry/$imgname:latest" "$registry/$imgname:latest"
# Test a reference without tag and make sure ":latest" is appended.
_tag_and_check "$registry/$imgname" "$registry/$imgname:latest"
# Test a tagged short image and make sure "localhost/" is prepended.
_tag_and_check "$imgname:latest" "localhost/$imgname:latest"
# Test a short image without tag and make sure "localhost/" is
# prepended and ":latest" is appended.
_tag_and_check "$imgname" "localhost/$imgname:latest"
# The order is intentionally wrong here to check the sorting
# https://github.com/containers/podman/issues/23803
local image1="$registry/$imgname-x:1"
run_podman tag $IMAGE $image1
local image3="$registry/$imgname-x:3"
run_podman tag $IMAGE $image3
local image2="$registry/$imgname-x:2"
run_podman tag $IMAGE $image2
local imageA="$registry/$imgname-a:a"
run_podman tag $IMAGE $imageA
local nl="
"
run_podman images --format '{{.Repository}}:{{.Tag}}' --sort repository
assert "$output" =~ "$imageA${nl}$image1${nl}$image2${nl}$image3" "images are sorted by repository and tag"
run_podman untag $IMAGE $imageA $image1 $image2 $image3
# Test error case.
run_podman 125 untag $IMAGE "$registry/foo:bar"
is "$output" "Error: $registry/foo:bar: tag not known"
}
# CANNOT BE PARALLELIZED: temporarily removes $IMAGE
@test "podman untag all" {
_prefetch $IMAGE
# First get the image ID
run_podman inspect --format '{{.ID}}' $IMAGE
iid=$output
registry="bogusregistry.nxdomain"
imgname=i-$(safename)
# Add a couple of tags
run_podman tag $IMAGE \
"$registry/$imgname-1:latest" \
"$registry/$imgname-2:latest" \
"$registry/$imgname-3:latest"
# Untag with arguments to for all tags to be removed
run_podman untag $iid
# Now make sure all tags are removed
run_podman image inspect $iid --format "{{.RepoTags}}"
is "$output" "\[\]" "untag by ID leaves empty set of tags"
run_podman 1 image exists $IMAGE
# Restore image
run_podman tag $iid $IMAGE
}
# vim: filetype=sh
|
