test[dji8-ios] A5 VideoFeeder

" Accessing the VideoFeeder of product "
| product |
product := DJISDKManager product.
product isNil ifTrue: [ ^self abortPage ].
self print: 'Accessing product videoFeeder: ' ,product videoFeeder.

" Accessing VideoFeeder properties "
| value |
value := DJISDKManager product videoFeeder.
(value class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#( primaryVideoFeed secondaryVideoFeed)
  do: [:msg| self print: ' ',msg,'=',(value perform: msg) ].

" Accessing VideoFeed capabilities "
| value |
value := DJISDKManager product videoFeeder primaryVideoFeed.
value isNil ifTrue: [ ^self print: 'Missing value' ].
#( physicalSource )
  do: [:msg| self print: ' ',msg,'=',(value perform: msg) ].