Inspect most DCPs made during tests with dcp_inspect (#76).
[dcpomatic.git] / test / reels_test.cc
1 /*
2     Copyright (C) 2015-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/reels_test.cc
23  *  @brief Check manipulation of reels in various ways.
24  *  @ingroup feature
25  */
26
27
28 #include "lib/content_factory.h"
29 #include "lib/dcp_content.h"
30 #include "lib/dcp_content_type.h"
31 #include "lib/ffmpeg_content.h"
32 #include "lib/film.h"
33 #include "lib/image_content.h"
34 #include "lib/make_dcp.h"
35 #include "lib/ratio.h"
36 #include "lib/string_text_file_content.h"
37 #include "lib/video_content.h"
38 #include "test.h"
39 #include <dcp/cpl.h>
40 #include <dcp/reel.h>
41 #include <dcp/reel_picture_asset.h>
42 #include <dcp/reel_sound_asset.h>
43 #include <boost/test/unit_test.hpp>
44 #include <iostream>
45
46
47 using std::cout;
48 using std::function;
49 using std::list;
50 using std::make_shared;
51 using std::shared_ptr;
52 using std::string;
53 using std::vector;
54 using namespace dcpomatic;
55
56
57 /** Test Film::reels() */
58 BOOST_AUTO_TEST_CASE (reels_test1)
59 {
60         auto film = new_test_film ("reels_test1");
61         film->set_container (Ratio::from_id ("185"));
62         auto A = make_shared<FFmpegContent>("test/data/test.mp4");
63         film->examine_and_add_content (A);
64         auto B = make_shared<FFmpegContent>("test/data/test.mp4");
65         film->examine_and_add_content (B);
66         BOOST_REQUIRE (!wait_for_jobs());
67         BOOST_CHECK_EQUAL (A->full_length(film).get(), 288000);
68
69         film->set_reel_type (ReelType::SINGLE);
70         auto r = film->reels ();
71         BOOST_CHECK_EQUAL (r.size(), 1U);
72         BOOST_CHECK_EQUAL (r.front().from.get(), 0);
73         BOOST_CHECK_EQUAL (r.front().to.get(), 288000 * 2);
74
75         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
76         r = film->reels ();
77         BOOST_CHECK_EQUAL (r.size(), 2U);
78         BOOST_CHECK_EQUAL (r.front().from.get(), 0);
79         BOOST_CHECK_EQUAL (r.front().to.get(), 288000);
80         BOOST_CHECK_EQUAL (r.back().from.get(), 288000);
81         BOOST_CHECK_EQUAL (r.back().to.get(), 288000 * 2);
82
83         film->set_j2k_bandwidth (100000000);
84         film->set_reel_type (ReelType::BY_LENGTH);
85         /* This is just over 2.5s at 100Mbit/s; should correspond to 60 frames */
86         film->set_reel_length (31253154);
87         r = film->reels ();
88         BOOST_CHECK_EQUAL (r.size(), 3U);
89         auto i = r.begin ();
90         BOOST_CHECK_EQUAL (i->from.get(), 0);
91         BOOST_CHECK_EQUAL (i->to.get(), DCPTime::from_frames(60, 24).get());
92         ++i;
93         BOOST_CHECK_EQUAL (i->from.get(), DCPTime::from_frames(60, 24).get());
94         BOOST_CHECK_EQUAL (i->to.get(), DCPTime::from_frames(120, 24).get());
95         ++i;
96         BOOST_CHECK_EQUAL (i->from.get(), DCPTime::from_frames(120, 24).get());
97         BOOST_CHECK_EQUAL (i->to.get(), DCPTime::from_frames(144, 24).get());
98 }
99
100
101 /** Make a short DCP with multi reels split by video content, then import
102  *  this into a new project and make a new DCP referencing it.
103  */
104 BOOST_AUTO_TEST_CASE (reels_test2)
105 {
106         auto film = new_test_film ("reels_test2");
107         film->set_name ("reels_test2");
108         film->set_container (Ratio::from_id ("185"));
109         film->set_interop (false);
110         film->set_dcp_content_type (DCPContentType::from_isdcf_name ("TST"));
111
112         {
113                 auto c = make_shared<ImageContent>("test/data/flat_red.png");
114                 film->examine_and_add_content (c);
115                 BOOST_REQUIRE (!wait_for_jobs());
116                 c->video->set_length (24);
117         }
118
119         {
120                 auto c = make_shared<ImageContent>("test/data/flat_green.png");
121                 film->examine_and_add_content (c);
122                 BOOST_REQUIRE (!wait_for_jobs());
123                 c->video->set_length (24);
124         }
125
126         {
127                 auto c = make_shared<ImageContent>("test/data/flat_blue.png");
128                 film->examine_and_add_content (c);
129                 BOOST_REQUIRE (!wait_for_jobs());
130                 c->video->set_length (24);
131         }
132
133         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
134         BOOST_CHECK_EQUAL (film->reels().size(), 3U);
135         BOOST_REQUIRE (!wait_for_jobs());
136
137         film->set_audio_channels(16);
138
139         make_and_verify_dcp (film);
140
141         check_dcp ("test/data/reels_test2", film->dir (film->dcp_name()));
142
143         auto c = make_shared<DCPContent>(film->dir(film->dcp_name()));
144         auto film2 = new_test_film2 ("reels_test2b", {c});
145         film2->set_reel_type (ReelType::BY_VIDEO_CONTENT);
146         film2->set_audio_channels(16);
147
148         auto r = film2->reels ();
149         BOOST_CHECK_EQUAL (r.size(), 3U);
150         auto i = r.begin ();
151         BOOST_CHECK_EQUAL (i->from.get(), 0);
152         BOOST_CHECK_EQUAL (i->to.get(), 96000);
153         ++i;
154         BOOST_CHECK_EQUAL (i->from.get(), 96000);
155         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 2);
156         ++i;
157         BOOST_CHECK_EQUAL (i->from.get(), 96000 * 2);
158         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 3);
159
160         c->set_reference_video (true);
161         c->set_reference_audio (true);
162
163         make_and_verify_dcp(film2, {dcp::VerificationNote::Code::EXTERNAL_ASSET}, false);
164 }
165
166
167 /** Check that ReelType::BY_VIDEO_CONTENT adds an extra reel, if necessary, at the end
168  *  of all the video content to mop up anything afterward.
169  */
170 BOOST_AUTO_TEST_CASE (reels_test3)
171 {
172         auto dcp = make_shared<DCPContent>("test/data/reels_test2");
173         auto sub = make_shared<StringTextFileContent>("test/data/subrip.srt");
174         auto film = new_test_film2 ("reels_test3", {dcp, sub});
175         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
176
177         auto reels = film->reels();
178         BOOST_REQUIRE_EQUAL (reels.size(), 4U);
179         auto i = reels.begin ();
180         BOOST_CHECK_EQUAL (i->from.get(), 0);
181         BOOST_CHECK_EQUAL (i->to.get(), 96000);
182         ++i;
183         BOOST_CHECK_EQUAL (i->from.get(), 96000);
184         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 2);
185         ++i;
186         BOOST_CHECK_EQUAL (i->from.get(), 96000 * 2);
187         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 3);
188         ++i;
189         BOOST_CHECK_EQUAL (i->from.get(), 96000 * 3);
190         BOOST_CHECK_EQUAL (i->to.get(), sub->full_length(film).ceil(film->video_frame_rate()).get());
191 }
192
193
194 /** Check creation of a multi-reel DCP with a single .srt subtitle file;
195  *  make sure that the reel subtitle timing is done right.
196  */
197 BOOST_AUTO_TEST_CASE (reels_test4)
198 {
199         auto film = new_test_film2 ("reels_test4");
200         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
201         film->set_interop (false);
202
203         /* 4 piece of 1s-long content */
204         shared_ptr<ImageContent> content[4];
205         for (int i = 0; i < 4; ++i) {
206                 content[i] = make_shared<ImageContent>("test/data/flat_green.png");
207                 film->examine_and_add_content (content[i]);
208                 BOOST_REQUIRE (!wait_for_jobs());
209                 content[i]->video->set_length (24);
210         }
211
212         auto subs = make_shared<StringTextFileContent>("test/data/subrip3.srt");
213         film->examine_and_add_content (subs);
214         BOOST_REQUIRE (!wait_for_jobs());
215
216         film->set_audio_channels(16);
217
218         auto reels = film->reels();
219         BOOST_REQUIRE_EQUAL (reels.size(), 4U);
220         auto i = reels.begin ();
221         BOOST_CHECK_EQUAL (i->from.get(), 0);
222         BOOST_CHECK_EQUAL (i->to.get(), 96000);
223         ++i;
224         BOOST_CHECK_EQUAL (i->from.get(), 96000);
225         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 2);
226         ++i;
227         BOOST_CHECK_EQUAL (i->from.get(), 96000 * 2);
228         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 3);
229         ++i;
230         BOOST_CHECK_EQUAL (i->from.get(), 96000 * 3);
231         BOOST_CHECK_EQUAL (i->to.get(), 96000 * 4);
232
233         make_and_verify_dcp (
234                 film,
235                 {
236                         dcp::VerificationNote::Code::MISSING_SUBTITLE_LANGUAGE,
237                         dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME,
238                         dcp::VerificationNote::Code::INVALID_SUBTITLE_DURATION
239                 });
240
241         check_dcp ("test/data/reels_test4", film->dir (film->dcp_name()));
242 }
243
244
245 BOOST_AUTO_TEST_CASE (reels_test5)
246 {
247         auto dcp = make_shared<DCPContent>("test/data/reels_test4");
248         dcp->check_font_ids();
249         auto film = new_test_film2 ("reels_test5", {dcp});
250         film->set_sequence (false);
251
252         /* Set to 2123 but it will be rounded up to the next frame (4000) */
253         dcp->set_position(film, DCPTime(2123));
254
255         {
256                 auto p = dcp->reels (film);
257                 BOOST_REQUIRE_EQUAL (p.size(), 4U);
258                 auto i = p.begin();
259                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 0), DCPTime(4000 + 96000)));
260                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 96000), DCPTime(4000 + 192000)));
261                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 192000), DCPTime(4000 + 288000)));
262                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 288000), DCPTime(4000 + 384000)));
263         }
264
265         {
266                 dcp->set_trim_start(film, ContentTime::from_seconds(0.5));
267                 auto p = dcp->reels (film);
268                 BOOST_REQUIRE_EQUAL (p.size(), 4U);
269                 auto i = p.begin();
270                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 0), DCPTime(4000 + 48000)));
271                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 48000), DCPTime(4000 + 144000)));
272                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 144000), DCPTime(4000 + 240000)));
273                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 240000), DCPTime(4000 + 336000)));
274         }
275
276         {
277                 dcp->set_trim_end (ContentTime::from_seconds (0.5));
278                 auto p = dcp->reels (film);
279                 BOOST_REQUIRE_EQUAL (p.size(), 4U);
280                 auto i = p.begin();
281                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 0), DCPTime(4000 + 48000)));
282                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 48000), DCPTime(4000 + 144000)));
283                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 144000), DCPTime(4000 + 240000)));
284                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 240000), DCPTime(4000 + 288000)));
285         }
286
287         {
288                 dcp->set_trim_start(film, ContentTime::from_seconds(1.5));
289                 auto p = dcp->reels (film);
290                 BOOST_REQUIRE_EQUAL (p.size(), 3U);
291                 auto i = p.begin();
292                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 0), DCPTime(4000 + 48000)));
293                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 48000), DCPTime(4000 + 144000)));
294                 BOOST_CHECK (*i++ == DCPTimePeriod (DCPTime(4000 + 144000), DCPTime(4000 + 192000)));
295         }
296 }
297
298
299 /** Check reel split with a muxed video/audio source */
300 BOOST_AUTO_TEST_CASE (reels_test6)
301 {
302         auto A = make_shared<FFmpegContent>("test/data/test2.mp4");
303         auto film = new_test_film2 ("reels_test6", {A});
304
305         film->set_j2k_bandwidth (100000000);
306         film->set_reel_type (ReelType::BY_LENGTH);
307         /* This is just over 2.5s at 100Mbit/s; should correspond to 60 frames */
308         film->set_reel_length (31253154);
309         /* dcp_inspect gives error about reel <1s in length */
310         make_and_verify_dcp (
311                 film,
312                 {
313                         dcp::VerificationNote::Code::INVALID_INTRINSIC_DURATION,
314                         dcp::VerificationNote::Code::INVALID_DURATION,
315                 },
316                 false);
317 }
318
319
320 /** Check the case where the last bit of audio hangs over the end of the video
321  *  and we are using ReelType::BY_VIDEO_CONTENT.
322  */
323 BOOST_AUTO_TEST_CASE (reels_test7)
324 {
325         auto A = content_factory("test/data/flat_red.png")[0];
326         auto B = content_factory("test/data/awkward_length.wav")[0];
327         auto film = new_test_film2 ("reels_test7", { A, B });
328         film->set_video_frame_rate (24);
329         A->video->set_length (2 * 24);
330
331         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
332         BOOST_REQUIRE_EQUAL (film->reels().size(), 2U);
333         BOOST_CHECK (film->reels().front() == DCPTimePeriod(DCPTime(0), DCPTime::from_frames(2 * 24, 24)));
334         BOOST_CHECK (film->reels().back() == DCPTimePeriod(DCPTime::from_frames(2 * 24, 24), DCPTime::from_frames(3 * 24 + 1, 24)));
335
336         make_and_verify_dcp (film);
337 }
338
339
340 /** Check a reels-related error; make_dcp() would raise a ProgrammingError */
341 BOOST_AUTO_TEST_CASE (reels_test8)
342 {
343         auto A = make_shared<FFmpegContent>("test/data/test2.mp4");
344         auto film = new_test_film2 ("reels_test8", {A});
345
346         A->set_trim_end (ContentTime::from_seconds (1));
347         make_and_verify_dcp (film);
348 }
349
350
351 /** Check another reels-related error; make_dcp() would raise a ProgrammingError */
352 BOOST_AUTO_TEST_CASE (reels_test9)
353 {
354         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
355         auto film = new_test_film2("reels_test9a", {A});
356         A->video->set_length(5 * 24);
357         film->set_video_frame_rate(24);
358         make_and_verify_dcp (film);
359
360         auto B = make_shared<DCPContent>(film->dir(film->dcp_name()));
361         auto film2 = new_test_film2("reels_test9b", {B, content_factory("test/data/dcp_sub4.xml")[0]});
362         B->set_reference_video(true);
363         B->set_reference_audio(true);
364         film2->set_reel_type(ReelType::BY_VIDEO_CONTENT);
365         film2->write_metadata();
366         make_and_verify_dcp (
367                 film2,
368                 {
369                         dcp::VerificationNote::Code::MISSING_SUBTITLE_LANGUAGE,
370                         dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME
371                 });
372 }
373
374
375 /** Another reels-related error; make_dcp() would raise a ProgrammingError
376  *  in AudioBuffers::allocate due to an attempt to allocate a negatively-sized buffer.
377  *  This was triggered by a VF where there are referenced audio reels followed by
378  *  VF audio.  When the VF audio arrives the Writer did not correctly skip over the
379  *  referenced reels.
380  */
381 BOOST_AUTO_TEST_CASE (reels_test10)
382 {
383         /* Make the OV */
384         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
385         auto B = make_shared<FFmpegContent>("test/data/flat_red.png");
386         auto ov = new_test_film2("reels_test10_ov", {A, B});
387         A->video->set_length (5 * 24);
388         B->video->set_length (5 * 24);
389
390         ov->set_reel_type (ReelType::BY_VIDEO_CONTENT);
391         make_and_verify_dcp (ov);
392         ov->write_metadata ();
393
394         /* Now try to make the VF; this used to fail */
395         auto ov_dcp = make_shared<DCPContent>(ov->dir(ov->dcp_name()));
396         auto vf = new_test_film2("reels_test10_vf", {ov_dcp, content_factory("test/data/15s.srt")[0]});
397         vf->set_reel_type (ReelType::BY_VIDEO_CONTENT);
398         ov_dcp->set_reference_video (true);
399         ov_dcp->set_reference_audio (true);
400
401         make_and_verify_dcp (
402                 vf,
403                 {
404                         dcp::VerificationNote::Code::EXTERNAL_ASSET,
405                         dcp::VerificationNote::Code::MISSING_SUBTITLE_LANGUAGE,
406                         dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME,
407                         dcp::VerificationNote::Code::INVALID_SUBTITLE_DURATION,
408                 },
409                 false);
410 }
411
412
413 /** Another reels error; ReelType::BY_VIDEO_CONTENT when the first content is not
414  *  at time 0.
415  */
416 BOOST_AUTO_TEST_CASE (reels_test11)
417 {
418         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
419         auto film = new_test_film2 ("reels_test11", {A});
420         film->set_video_frame_rate (24);
421         A->video->set_length (240);
422         A->set_video_frame_rate(film, 24);
423         A->set_position (film, DCPTime::from_seconds(1));
424         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
425         make_and_verify_dcp (film);
426         BOOST_CHECK_EQUAL (A->position().get(), DCPTime::from_seconds(1).get());
427         BOOST_CHECK_EQUAL (A->end(film).get(), DCPTime::from_seconds(1 + 10).get());
428
429         auto r = film->reels ();
430         BOOST_CHECK_EQUAL (r.size(), 2U);
431         BOOST_CHECK_EQUAL (r.front().from.get(), 0);
432         BOOST_CHECK_EQUAL (r.front().to.get(), DCPTime::from_seconds(1).get());
433         BOOST_CHECK_EQUAL (r.back().from.get(), DCPTime::from_seconds(1).get());
434         BOOST_CHECK_EQUAL (r.back().to.get(), DCPTime::from_seconds(1 + 10).get());
435 }
436
437
438 /** For VFs to work right we have to make separate reels for empty bits between
439  *  video content.
440  */
441 BOOST_AUTO_TEST_CASE (reels_test12)
442 {
443         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
444         auto B = make_shared<FFmpegContent>("test/data/flat_red.png");
445         auto film = new_test_film2 ("reels_test12", {A, B});
446         film->set_video_frame_rate (24);
447         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
448         film->set_sequence (false);
449
450         A->video->set_length (240);
451         A->set_video_frame_rate(film, 24);
452         A->set_position (film, DCPTime::from_seconds(1));
453
454         B->video->set_length (120);
455         B->set_video_frame_rate(film, 24);
456         B->set_position (film, DCPTime::from_seconds(14));
457
458         auto r = film->reels ();
459         BOOST_REQUIRE_EQUAL (r.size(), 4U);
460         auto i = r.begin ();
461
462         BOOST_CHECK_EQUAL (i->from.get(), 0);
463         BOOST_CHECK_EQUAL (i->to.get(),   DCPTime::from_seconds(1).get());
464         ++i;
465         BOOST_CHECK_EQUAL (i->from.get(), DCPTime::from_seconds(1).get());
466         BOOST_CHECK_EQUAL (i->to.get(),   DCPTime::from_seconds(11).get());
467         ++i;
468         BOOST_CHECK_EQUAL (i->from.get(), DCPTime::from_seconds(11).get());
469         BOOST_CHECK_EQUAL (i->to.get(),   DCPTime::from_seconds(14).get());
470         ++i;
471         BOOST_CHECK_EQUAL (i->from.get(), DCPTime::from_seconds(14).get());
472         BOOST_CHECK_EQUAL (i->to.get(),   DCPTime::from_seconds(19).get());
473 }
474
475
476 static void
477 no_op ()
478 {
479
480 }
481
482 static void
483 dump_notes (vector<dcp::VerificationNote> const & notes)
484 {
485         for (auto i: notes) {
486                 std::cout << dcp::note_to_string(i) << "\n";
487         }
488 }
489
490
491 /** Using less than 1 second's worth of content should not result in a reel
492  *  of less than 1 second's duration.
493  */
494 BOOST_AUTO_TEST_CASE (reels_should_not_be_short1)
495 {
496         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
497         auto B = make_shared<FFmpegContent>("test/data/flat_red.png");
498         auto film = new_test_film2 ("reels_should_not_be_short1", {A, B});
499         film->set_video_frame_rate (24);
500
501         A->video->set_length (23);
502
503         B->video->set_length (23);
504         B->set_position (film, DCPTime::from_frames(23, 24));
505
506         make_and_verify_dcp (film);
507
508         vector<boost::filesystem::path> dirs = { film->dir(film->dcp_name(false)) };
509         auto notes = dcp::verify(dirs, {}, boost::bind(&no_op), boost::bind(&no_op), {}, TestPaths::xsd());
510         dump_notes (notes);
511         BOOST_REQUIRE (notes.empty());
512 }
513
514
515 /** Leaving less than 1 second's gap between two pieces of content with
516  *  ReelType::BY_VIDEO_CONTENT should not make a <1s reel.
517  */
518 BOOST_AUTO_TEST_CASE (reels_should_not_be_short2)
519 {
520         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
521         auto B = make_shared<FFmpegContent>("test/data/flat_red.png");
522         auto film = new_test_film2 ("reels_should_not_be_short2", {A, B});
523         film->set_video_frame_rate (24);
524         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
525
526         A->video->set_length (240);
527
528         B->video->set_length (240);
529         B->set_position (film, DCPTime::from_seconds(10.2));
530
531         make_and_verify_dcp (film);
532
533         vector<boost::filesystem::path> dirs = { film->dir(film->dcp_name(false)) };
534         auto const notes = dcp::verify(dirs, {}, boost::bind(&no_op), boost::bind(&no_op), {}, TestPaths::xsd());
535         dump_notes (notes);
536         BOOST_REQUIRE (notes.empty());
537 }
538
539
540 /** Setting ReelType::BY_LENGTH and using a small length value should not make
541  *  <1s reels.
542  */
543 BOOST_AUTO_TEST_CASE (reels_should_not_be_short3)
544 {
545         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
546         auto film = new_test_film2 ("reels_should_not_be_short3", {A});
547         film->set_video_frame_rate (24);
548         film->set_reel_type (ReelType::BY_LENGTH);
549         film->set_reel_length (1024 * 1024 * 10);
550
551         A->video->set_length (240);
552
553         make_and_verify_dcp (film);
554
555         auto const notes = dcp::verify({}, {}, boost::bind(&no_op), boost::bind(&no_op), {}, TestPaths::xsd());
556         dump_notes (notes);
557         BOOST_REQUIRE (notes.empty());
558 }
559
560
561 /** Having one piece of content less than 1s long in ReelType::BY_VIDEO_CONTENT
562  *  should not make a reel less than 1s long.
563  */
564 BOOST_AUTO_TEST_CASE (reels_should_not_be_short4)
565 {
566         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
567         auto B = make_shared<FFmpegContent>("test/data/flat_red.png");
568         auto film = new_test_film2 ("reels_should_not_be_short4", {A, B});
569         film->set_video_frame_rate (24);
570         film->set_reel_type (ReelType::BY_VIDEO_CONTENT);
571
572         A->video->set_length (240);
573
574         B->video->set_length (23);
575         B->set_position (film, DCPTime::from_frames(240, 24));
576
577         BOOST_CHECK_EQUAL (film->reels().size(), 1U);
578         BOOST_CHECK (film->reels().front() == dcpomatic::DCPTimePeriod(dcpomatic::DCPTime(), dcpomatic::DCPTime::from_frames(263, 24)));
579
580         film->write_metadata ();
581         make_dcp (film, TranscodeJob::ChangedBehaviour::IGNORE);
582         BOOST_REQUIRE (!wait_for_jobs());
583
584         vector<boost::filesystem::path> dirs = { film->dir(film->dcp_name(false)) };
585         auto const notes = dcp::verify(dirs, {}, boost::bind(&no_op), boost::bind(&no_op), {}, TestPaths::xsd());
586         dump_notes (notes);
587         BOOST_REQUIRE (notes.empty());
588 }
589
590
591 /** Create a long DCP A then insert it repeatedly into a new project, trimming it differently each time.
592  *  Make a DCP B from that project which refers to A and splits into reels.  This was found to go wrong
593  *  when looking at #2268.
594  */
595 BOOST_AUTO_TEST_CASE (repeated_dcp_into_reels)
596 {
597         /* Make a 20s DCP */
598         auto A = make_shared<FFmpegContent>("test/data/flat_red.png");
599         auto film1 = new_test_film2("repeated_dcp_into_reels1", { A });
600         auto constexpr frame_rate = 24;
601         auto constexpr length_in_seconds = 20;
602         auto constexpr total_frames = frame_rate * length_in_seconds;
603         film1->set_video_frame_rate(frame_rate);
604         A->video->set_length(total_frames);
605         make_and_verify_dcp(film1);
606
607         /* Make a new project that includes this long DCP 4 times, each
608          * trimmed to a quarter of the original, i.e.
609          * /----------------------|----------------------|----------------------|----------------------\
610          * | 1st quarter of film1 | 2nd quarter of film1 | 3rd quarter of film1 | 4th quarter of film1 |
611          * \----------------------|----------------------|----------------------|_---------------------/
612          */
613
614         shared_ptr<DCPContent> original_dcp[4] = {
615                  make_shared<DCPContent>(film1->dir(film1->dcp_name(false))),
616                  make_shared<DCPContent>(film1->dir(film1->dcp_name(false))),
617                  make_shared<DCPContent>(film1->dir(film1->dcp_name(false))),
618                  make_shared<DCPContent>(film1->dir(film1->dcp_name(false)))
619         };
620
621         auto film2 = new_test_film2("repeated_dcp_into_reels2", { original_dcp[0], original_dcp[1], original_dcp[2], original_dcp[3] });
622         film2->set_reel_type(ReelType::BY_VIDEO_CONTENT);
623         film2->set_video_frame_rate(frame_rate);
624         film2->set_sequence(false);
625
626         for (int i = 0; i < 4; ++i) {
627                 original_dcp[i]->set_position(film2, DCPTime::from_frames(total_frames * i / 4, frame_rate));
628                 original_dcp[i]->set_trim_start(film2, ContentTime::from_frames(total_frames * i / 4, frame_rate));
629                 original_dcp[i]->set_trim_end  (ContentTime::from_frames(total_frames * (4 - i - 1) / 4, frame_rate));
630                 original_dcp[i]->set_reference_video(true);
631                 original_dcp[i]->set_reference_audio(true);
632         }
633
634         make_and_verify_dcp(film2, { dcp::VerificationNote::Code::EXTERNAL_ASSET }, false);
635
636         dcp::DCP check1(film1->dir(film1->dcp_name()));
637         check1.read();
638         BOOST_REQUIRE(!check1.cpls().empty());
639         BOOST_REQUIRE(!check1.cpls()[0]->reels().empty());
640         auto picture = check1.cpls()[0]->reels()[0]->main_picture()->asset();
641         BOOST_REQUIRE(picture);
642         auto sound = check1.cpls()[0]->reels()[0]->main_sound()->asset();
643         BOOST_REQUIRE(sound);
644
645         dcp::DCP check2(film2->dir(film2->dcp_name()));
646         check2.read();
647         BOOST_REQUIRE(!check2.cpls().empty());
648         auto cpl = check2.cpls()[0];
649         BOOST_REQUIRE_EQUAL(cpl->reels().size(), 4U);
650         for (int i = 0; i < 4; ++i) {
651                 BOOST_REQUIRE_EQUAL(cpl->reels()[i]->main_picture()->entry_point().get_value_or(0), total_frames * i / 4);
652                 BOOST_REQUIRE_EQUAL(cpl->reels()[i]->main_picture()->duration().get_value_or(0), total_frames / 4);
653                 BOOST_REQUIRE_EQUAL(cpl->reels()[i]->main_picture()->id(), picture->id());
654                 BOOST_REQUIRE_EQUAL(cpl->reels()[i]->main_sound()->entry_point().get_value_or(0), total_frames * i / 4);
655                 BOOST_REQUIRE_EQUAL(cpl->reels()[i]->main_sound()->duration().get_value_or(0), total_frames / 4);
656                 BOOST_REQUIRE_EQUAL(cpl->reels()[i]->main_sound()->id(), sound->id());
657         }
658 }