[cling] Update policy for GetFullyQualifiedName in cling utils

Just like in CppInterOp, set the `SuppressElaboration` and
`FullyQualifiedName` policies when getting the fully qualified name of a
QualType.

Closes the following JIRA ticket:

https://its.cern.ch/jira/browse/ROOT-10150

Author: guitargeek

interpreter/cling/lib/Utils/AST.cpp

@@ -1762,6 +1762,8 @@ namespace utils {
     PrintingPolicy Policy(Ctx.getPrintingPolicy());
     Policy.SuppressScope = false;
     Policy.AnonymousTagLocations = false;
+    Policy.SuppressElaboration = true;
+    Policy.FullyQualifiedName = true;
     return FQQT.getAsString(Policy);
   }
 

roottest/root/meta/CMakeLists.txt

@@ -38,6 +38,10 @@ ROOTTEST_ADD_TEST(loadernotapp
                   OUTREF loadernotapp.ref
                   DEPENDS ${GENERATE_EXECUTABLE_TEST})
 
+ROOTTEST_ADD_TEST(reproduceROOT10150
+                  MACRO reproduceROOT10150.C+
+                  FAILREGEX "error")
+
 ROOTTEST_COMPILE_MACRO(fornamespace.C)
 
 #---Copy from source to binary some of the files

roottest/root/meta/reproduceROOT10150.C

@@ -0,0 +1,28 @@
+// reproducer from https://its.cern.ch/jira/browse/ROOT-10150
+
+#include <TInterpreter.h>
+#include <functional>
+#include <iostream>
+
+namespace Foo {
+struct Particle {
+   float m_pt;
+   float pt() const { return m_pt; }
+};
+} // namespace Foo
+
+template <typename FType>
+FType get_functor(std::string const &functor_string)
+{
+   auto intern = gInterpreter->MakeInterpreterValue();
+   gInterpreter->Evaluate(functor_string.c_str(), *intern);
+   return *static_cast<FType *>(intern->GetAsPointer());
+}
+
+void reproduceROOT10150()
+{
+   auto functor = get_functor<std::function<bool(Foo::Particle const &)>>(
+      "std::function<bool(Foo::Particle const&)>( [](Foo::Particle const& particle){return particle.pt() > 15;} );");
+   Foo::Particle low_pT_particle{1.f}, high_pT_particle{40.f};
+   std::cout << functor(high_pT_particle) << " " << functor(low_pT_particle) << std::endl;
+}

tree/ntuple/test/ntuple_type_name.cxx

@@ -216,13 +216,13 @@ TEST(RNTuple, TypeNameTemplatesNestedAlias)
    ASSERT_EQ(2, hashSubfields.size());
    EXPECT_EQ("fHash", hashSubfields[0]->GetFieldName());
    EXPECT_EQ("std::string", hashSubfields[0]->GetTypeName());
-   EXPECT_EQ("EdmHash<1>::value_type", hashSubfields[0]->GetTypeAlias());
+   EXPECT_EQ("EdmHash::value_type", hashSubfields[0]->GetTypeAlias());
 
    EXPECT_EQ("fHash2", hashSubfields[1]->GetFieldName());
    EXPECT_EQ("std::string", hashSubfields[1]->GetTypeName());
    // FIXME: This should really be EdmHash<1>::value_typeT<EdmHash<1>::value_type>, but this is the value we get from
    // TDataMember::GetFullTypeName right now...
-   EXPECT_EQ("value_typeT<EdmHash<1>::value_type>", hashSubfields[1]->GetTypeAlias());
+   EXPECT_EQ("EdmHash::value_typeT<EdmHash::value_type>", hashSubfields[1]->GetTypeAlias());
 }
 
 TEST(RNTuple, ContextDependentTypeNames)
@@ -257,7 +257,7 @@ TEST(RNTuple, ContextDependentTypeNames)
       {
          const auto &fdesc = desc.GetFieldDescriptor(desc.FindFieldId("m", fooId));
          EXPECT_EQ(fdesc.GetTypeName(), "std::vector<std::int32_t>");
-         EXPECT_EQ(fdesc.GetTypeAlias(), "MyVec<std::int32_t>");
+         EXPECT_EQ(fdesc.GetTypeAlias(), "CustomStruct::MyVec<std::int32_t>");
       }
       {
          const auto &fdesc = desc.GetFieldDescriptor(desc.FindFieldId("a", baseId));

tree/ntuple/test/ntuple_types.cxx

@@ -2261,7 +2261,7 @@ TEST(RNTuple, ContextDependentTypes)
       EXPECT_EQ(field.GetTypeName(), "DerivedWithTypedef");
       const auto &vec = model.GetConstField("foo.m");
       EXPECT_EQ(vec.GetTypeName(), "std::vector<std::int32_t>");
-      EXPECT_EQ(vec.GetTypeAlias(), "MyVec<std::int32_t>");
+      EXPECT_EQ(vec.GetTypeAlias(), "CustomStruct::MyVec<std::int32_t>");
 
       auto vecView = reader->GetView<DerivedWithTypedef::MyVec<int>>("foo.m");
       for (const auto &i : reader->GetEntryRange()) {