Fix missing subtitle language in CPL on auto-created empty subtitle assets (#2548).
[dcpomatic.git] / test / subtitle_language_test.cc
1 /*
2     Copyright (C) 2020-2021 Carl Hetherington <cth@carlh.net>
3
4     This file is part of DCP-o-matic.
5
6     DCP-o-matic is free software; you can redistribute it and/or modify
7     it under the terms of the GNU General Public License as published by
8     the Free Software Foundation; either version 2 of the License, or
9     (at your option) any later version.
10
11     DCP-o-matic is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14     GNU General Public License for more details.
15
16     You should have received a copy of the GNU General Public License
17     along with DCP-o-matic.  If not, see <http://www.gnu.org/licenses/>.
18
19 */
20
21
22 /** @file  test/subtitle_language_test.cc
23  *  @brief Test that subtitle language information is correctly written to DCPs.
24  */
25
26
27 #include "lib/content.h"
28 #include "lib/content_factory.h"
29 #include "lib/film.h"
30 #include "lib/text_content.h"
31 #include "test.h"
32 #include <dcp/language_tag.h>
33 #include <boost/test/unit_test.hpp>
34 #include <vector>
35
36
37 using std::string;
38 using std::vector;
39
40
41 BOOST_AUTO_TEST_CASE (subtitle_language_interop_test)
42 {
43         string const name = "subtitle_language_interop_test";
44         auto fr = content_factory("test/data/frames.srt");
45         auto film = new_test_film2 (name, fr);
46
47         fr[0]->only_text()->set_language (dcp::LanguageTag("fr-FR"));
48         film->set_interop (true);
49
50         make_and_verify_dcp (
51                 film,
52                 {
53                         dcp::VerificationNote::Code::INVALID_STANDARD,
54                         dcp::VerificationNote::Code::INVALID_SUBTITLE_SPACING,
55                         dcp::VerificationNote::Code::INVALID_SUBTITLE_DURATION
56                 });
57
58         check_dcp (String::compose("test/data/%1", name), String::compose("build/test/%1/%2", name, film->dcp_name()));
59 }
60
61
62 BOOST_AUTO_TEST_CASE (subtitle_language_smpte_test)
63 {
64         string const name = "subtitle_language_smpte_test";
65         auto fr = content_factory("test/data/frames.srt");
66         auto film = new_test_film2 (name, fr);
67
68         fr[0]->only_text()->set_language (dcp::LanguageTag("fr-FR"));
69         film->set_interop (false);
70
71         make_and_verify_dcp (
72                 film,
73                 {
74                         dcp::VerificationNote::Code::MISSING_SUBTITLE_LANGUAGE,
75                         dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME,
76                         dcp::VerificationNote::Code::INVALID_SUBTITLE_DURATION,
77                         dcp::VerificationNote::Code::INVALID_SUBTITLE_SPACING,
78                         dcp::VerificationNote::Code::MISSING_CPL_METADATA
79                 });
80
81         check_dcp (String::compose("test/data/%1", name), String::compose("build/test/%1/%2", name, film->dcp_name()));
82 }
83
84
85 BOOST_AUTO_TEST_CASE(subtitle_language_in_cpl_test)
86 {
87         auto subs = content_factory("test/data/frames.srt")[0];
88         auto video1 = content_factory("test/data/flat_red.png")[0];
89         auto video2 = content_factory("test/data/flat_red.png")[0];
90         auto film = new_test_film2(boost::unit_test::framework::current_test_unit().full_name(), { subs, video1, video2 });
91         video2->set_position(film, dcpomatic::DCPTime::from_seconds(5));
92         film->set_reel_type(ReelType::BY_VIDEO_CONTENT);
93         subs->only_text()->set_language(dcp::LanguageTag("fr-FR"));
94
95         make_and_verify_dcp(
96                 film,
97                 {
98                         dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME,
99                         dcp::VerificationNote::Code::INVALID_SUBTITLE_DURATION,
100                         dcp::VerificationNote::Code::INVALID_SUBTITLE_SPACING
101                 });
102
103         cxml::Document cpl("CompositionPlaylist");
104         cpl.read_file(find_file(film->dir(film->dcp_name()), "cpl_"));
105
106         for (auto reel: cpl.node_child("ReelList")->node_children("Reel")) {
107                 auto subtitle = reel->node_child("AssetList")->node_child("MainSubtitle");
108                 BOOST_REQUIRE(subtitle);
109                 BOOST_CHECK(subtitle->optional_node_child("Language"));
110         }
111 }
112